-Wall police

darcs-hash:20070611180123-a5988-6d080dc357baadd3be573cce2942f765ac4cd832

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