diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-06-30 15:34:37 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-06-30 15:34:37 +0000 |
| commit | a26d126c7457059d9d89d0cccacee8cc1136d59c (patch) | |
| tree | adde1e19af9031d913c1eb7a84eb7e4bcf7f30d3 | |
| parent | de73e57a83aace471f594655803e20eaf1027b0b (diff) | |
fix warning
| -rw-r--r-- | src/Haddock/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Utils.hs b/src/Haddock/Utils.hs index ab0d03b7..45c64e57 100644 --- a/src/Haddock/Utils.hs +++ b/src/Haddock/Utils.hs @@ -373,7 +373,7 @@ replace :: Eq a => a -> a -> [a] -> [a] replace a b = map (\x -> if x == a then b else x) spanWith :: (a -> Maybe b) -> [a] -> ([b],[a]) -spanWith _ [] = ([],[]) +spanWith p [] = ([],[]) spanWith p xs@(a:as) | Just b <- p a = let (bs,cs) = spanWith p as in (b:bs,cs) | otherwise = ([],xs) |