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 | c29c5cde24675e152e0cff754b32db7b2b59bfa0 (patch) | |
| tree | bfc7339ea98da0bab2c4f7881fa8f1c3fa04d83e /StackSet.hs | |
| parent | 541c7a063b6fc58e0599c309b5954c17638e2274 (diff) | |
| download | xmonad-c29c5cde24675e152e0cff754b32db7b2b59bfa0.tar.gz xmonad-c29c5cde24675e152e0cff754b32db7b2b59bfa0.tar.xz xmonad-c29c5cde24675e152e0cff754b32db7b2b59bfa0.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.gz
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 :-) - |