summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--StackSet.hs6
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