diff options
| author | David Waern <david.waern@gmail.com> | 2010-07-01 16:12:18 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-07-01 16:12:18 +0000 |
| commit | ee4ebb2a3081e7be89f9e94b0fdfc939267cf793 (patch) | |
| tree | 1a55ef71ca43268458644de847d47019dc7b97fd | |
| parent | d975301e5ef93ba49ad45a2259ab841928985216 (diff) | |
Warning police
| -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 5bdae25f..396111c1 100644 --- a/src/Haddock/Utils.hs +++ b/src/Haddock/Utils.hs @@ -327,7 +327,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 p [] = ([],[]) +spanWith _ [] = ([],[]) spanWith p xs@(a:as) | Just b <- p a = let (bs,cs) = spanWith p as in (b:bs,cs) | otherwise = ([],xs) |