diff options
| -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) |