diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-04 20:33:44 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-04 20:33:44 +0200 |
| commit | 931980c01b78001197626d013be99a5c8011417c (patch) | |
| tree | fe96e9e8ffeeeebba64750b331fbb546ae6d3606 | |
| parent | 98a1e3c862dd5321d1cb5f203e44ab95f3696539 (diff) | |
| download | xmonad-931980c01b78001197626d013be99a5c8011417c.tar.gz xmonad-931980c01b78001197626d013be99a5c8011417c.tar.xz xmonad-931980c01b78001197626d013be99a5c8011417c.zip | |
Remove redundant cases in swapUp/Down
darcs-hash:20070604183344-a5988-77df217c8b8b2f958f1adfceb3ee8fe94942e9a8.gz
Diffstat (limited to '')
| -rw-r--r-- | StackSet.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/StackSet.hs b/StackSet.hs index d1fe054..2b6ed68 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -279,12 +279,10 @@ focusUp' (Node t [] rs) = Node x xs [] where (x:xs) = reverse (t:rs) focusDown = modify Empty (reverseStack . focusUp' . reverseStack) swapUp = modify Empty $ \c -> case c of - Node _ [] [] -> c Node t (l:ls) rs -> Node t ls (l:rs) Node t [] rs -> Node t (reverse rs) [] swapDown = modify Empty $ \c -> case c of - Node _ [] [] -> c Node t ls (r:rs) -> Node t (r:ls) rs Node t ls [] -> Node t [] (reverse ls) |