aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--StackSet.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/StackSet.hs b/StackSet.hs
index e6b2996..b8c31ce 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -311,7 +311,7 @@ filter :: (a -> Bool) -> Stack a -> StackOrNot a
filter p (Stack f ls rs) = case L.filter p (f:rs) of
f':rs' -> Just $ Stack f' (L.filter p ls) rs' -- maybe move focus down
[] -> case L.filter p ls of -- filter back up
- f':rs' -> Just $ Stack f' [] (reverse rs') -- else up
+ f':ls' -> Just $ Stack f' ls' [] -- else up
[] -> Nothing
-- |