diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-11 20:01:23 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-11 20:01:23 +0200 |
commit | 0997b70f5209aae05399a29a6072b1932deb6360 (patch) | |
tree | 63f5c39f1795bf3039990eaeeb5654eea51faf07 /StackSet.hs | |
parent | 7ba1782870d7459c52f6b9dd9814e8a598efa78d (diff) | |
download | xmonad-0997b70f5209aae05399a29a6072b1932deb6360.tar.gz xmonad-0997b70f5209aae05399a29a6072b1932deb6360.tar.xz xmonad-0997b70f5209aae05399a29a6072b1932deb6360.zip |
-Wall police
darcs-hash:20070611180123-a5988-6d080dc357baadd3be573cce2942f765ac4cd832.gz
Diffstat (limited to 'StackSet.hs')
-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 |