diff options
| -rw-r--r-- | StackSet.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/StackSet.hs b/StackSet.hs index 1b258fc..a226573 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -267,7 +267,7 @@ integrate (Node x l r) = reverse l ++ x : r -- True. Order is preserved, and focus moves to the next node to the right (if -- necessary). filter :: (a -> Bool) -> Stack a -> Stack a -filter p Empty = Empty +filter _ Empty = Empty filter p (Node f ls rs) = case L.filter p (f:rs) of (f':rs') -> Node f' (L.filter p ls) rs' [] -> case reverse $ L.filter p ls of |