diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-04-19 00:47:25 +0200 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-04-19 00:47:25 +0200 |
commit | 21c67ffb516d128755366a32f66d4cfb12360228 (patch) | |
tree | 902f59b074ce310c8984f4ec5fdc1cf376dcfcce /StackSet.hs | |
parent | 548f4bad33b2aaa427f25126a92b12f3ab5268fe (diff) | |
download | xmonad-21c67ffb516d128755366a32f66d4cfb12360228.tar.gz xmonad-21c67ffb516d128755366a32f66d4cfb12360228.tar.xz xmonad-21c67ffb516d128755366a32f66d4cfb12360228.zip |
tweak loc count to match count_lines script
darcs-hash:20070418224725-9c5c1-e885b1392c8f6aaa1ccd5c5cbcdc9c41b29b6b6a.gz
Diffstat (limited to 'StackSet.hs')
-rw-r--r-- | StackSet.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/StackSet.hs b/StackSet.hs index a7bc376..f0168d1 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -239,12 +239,12 @@ swap a b xs swap _ _ xs = xs -- do nothing -{- +-- -- cycling: -promote w = w { stacks = M.adjust next (current w) (stacks w) } - where next [] = [] - next xs = last xs : init xs --} +-- promote w = w { stacks = M.adjust next (current w) (stacks w) } +-- where next [] = [] +-- next xs = last xs : init xs +-- -- | elemAfter :: Eq a => a -> [a] -> Maybe a |