diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-04 20:22:28 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-04 20:22:28 +0200 |
| commit | ee21ee2e74b4184e5c51de0e2b96c1c19aecf556 (patch) | |
| tree | 4f54584fe148d2050970245fed1a11c2b5ae6c5e /StackSet.hs | |
| parent | ac050cf866832b66b620cdc801c8e24a47e0bdb9 (diff) | |
| download | xmonad-ee21ee2e74b4184e5c51de0e2b96c1c19aecf556.tar.gz xmonad-ee21ee2e74b4184e5c51de0e2b96c1c19aecf556.tar.xz xmonad-ee21ee2e74b4184e5c51de0e2b96c1c19aecf556.zip | |
Simplify focusUp/Down
darcs-hash:20070604182228-a5988-4114dc5f3d0c5533f66cb2c34e2f3fe9566f19e0.gz
Diffstat (limited to 'StackSet.hs')
| -rw-r--r-- | StackSet.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/StackSet.hs b/StackSet.hs index bb581d2..8f8c4e3 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -272,14 +272,12 @@ index = with [] integrate -- focusUp, focusDown, swapUp, swapDown :: StackSet i a s -> StackSet i a s focusUp = modify Empty $ \c -> case c of - Node _ [] [] -> c Node t (l:ls) rs -> Node l ls (t:rs) - Node t [] rs -> Node x (xs ++ [t]) [] where (x:xs) = reverse rs + Node t [] rs -> Node x xs [] where (x:xs) = reverse (t:rs) focusDown = modify Empty $ \c -> case c of - Node _ [] [] -> c Node t ls (r:rs) -> Node r (t:ls) rs - Node t ls [] -> Node x [] (xs ++ [t]) where (x:xs) = reverse ls + Node t ls [] -> Node x [] xs where (x:xs) = reverse (t:ls) swapUp = modify Empty $ \c -> case c of Node _ [] [] -> c |