diff options
| author | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-09 15:17:16 +0200 |
|---|---|---|
| committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-09 15:17:16 +0200 |
| commit | be962db7586e120adb810e506f456b7ab80f486e (patch) | |
| tree | bfc7339ea98da0bab2c4f7881fa8f1c3fa04d83e /StackSet.hs | |
| parent | 27ea348b43b0f8ec0c20e784b43d688785ddc625 (diff) | |
| download | metatile-be962db7586e120adb810e506f456b7ab80f486e.tar metatile-be962db7586e120adb810e506f456b7ab80f486e.zip | |
HEADS UP: (logging format change). use a custom pretty printer, for an easier format to parse, than 'show' produces
darcs-hash:20070609131716-9c5c1-ac6b3d7e8193b16ca9ae65f32d5373090107eca1
Diffstat (limited to 'StackSet.hs')
| -rw-r--r-- | StackSet.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/StackSet.hs b/StackSet.hs index 34e6b10..4b74646 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -412,4 +412,3 @@ shift n s = if and [n >= 0,n < size s,n /= tag (workspace (current s))] then maybe s go (peek s) else s where go w = foldr ($) s [view (tag (workspace (current s))),insertUp w,view n,delete w] -- ^^ poor man's state monad :-) - |