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 | 8252c263305bc52db9c71cde73faac8cecc4fb93 (patch) | |
tree | fe96e9e8ffeeeebba64750b331fbb546ae6d3606 | |
parent | 9dbe49802ab820439e4072b8c060775523836e3e (diff) | |
download | metatile-8252c263305bc52db9c71cde73faac8cecc4fb93.tar metatile-8252c263305bc52db9c71cde73faac8cecc4fb93.zip |
Remove redundant cases in swapUp/Down
darcs-hash:20070604183344-a5988-77df217c8b8b2f958f1adfceb3ee8fe94942e9a8
-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) |