From 14056f19d355a43f529d746b3a2cc105ed54e891 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 11 Jun 2007 20:01:23 +0200 Subject: -Wall police darcs-hash:20070611180123-a5988-6d080dc357baadd3be573cce2942f765ac4cd832 --- StackSet.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'StackSet.hs') 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 -- cgit v1.2.3