diff options
author | David Roundy <droundy@darcs.net> | 2007-06-12 17:12:09 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-06-12 17:12:09 +0200 |
commit | 1af7582b30d70ded97db92a69673849372c98fb9 (patch) | |
tree | f5e17574f1edd760920041bb551f02443046ae03 /DwmPromote.hs | |
parent | 11f2eae73be71fd0b810966fdb5fec22d856e6c9 (diff) | |
download | XMonadContrib-1af7582b30d70ded97db92a69673849372c98fb9.tar.gz XMonadContrib-1af7582b30d70ded97db92a69673849372c98fb9.tar.xz XMonadContrib-1af7582b30d70ded97db92a69673849372c98fb9.zip |
changes to work with Stacks that can't be empty.
darcs-hash:20070612151209-72aca-62307f8565fc32ca80be8daf2c30fe414d49111e.gz
Diffstat (limited to '')
-rw-r--r-- | DwmPromote.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/DwmPromote.hs b/DwmPromote.hs index 946a80f..cfcdad2 100644 --- a/DwmPromote.hs +++ b/DwmPromote.hs @@ -33,7 +33,7 @@ dwmpromote :: X () dwmpromote = windows swap swap :: StackSet i a s -> StackSet i a s -swap = modify Empty $ \c -> case c of - Node _ [] [] -> c - Node t [] (x:rs) -> Node x [] (t:rs) - Node t ls rs -> Node t [] (ys ++ x : rs) where (x:ys) = reverse ls +swap = modify' $ \c -> case c of + Stack _ [] [] -> c + Stack t [] (x:rs) -> Stack x [] (t:rs) + Stack t ls rs -> Stack t [] (ys ++ x : rs) where (x:ys) = reverse ls |