diff options
| author | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-02-23 05:02:47 +0000 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-02-23 06:37:14 +0000 |
| commit | 1944b94edca881d14e979d564719da6f196f8e63 (patch) | |
| tree | 7777e3db5543f742374563c3a626c3332887414c | |
| parent | 49b2a05ee0d769568d97a091de93f2ce2512eef6 (diff) | |
Don't shadow ‘strip’.
-Wall complains
| -rw-r--r-- | src/Haddock/Parser.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Haddock/Parser.hs b/src/Haddock/Parser.hs index 095f385e..cd7bb020 100644 --- a/src/Haddock/Parser.hs +++ b/src/Haddock/Parser.hs @@ -307,11 +307,11 @@ birdtracks = DocCodeBlock . DocString . intercalate "\n" . stripSpace <$> many1 line = skipHorizontalSpace *> ">" *> takeLine stripSpace :: [String] -> [String] -stripSpace = fromMaybe <*> mapM strip +stripSpace = fromMaybe <*> mapM strip' where - strip (' ':xs) = Just xs - strip "" = Just "" - strip _ = Nothing + strip' (' ':xs') = Just xs' + strip' "" = Just "" + strip' _ = Nothing -- | Parses examples. Examples are a paragraph level entitity (separated by an empty line). -- Consecutive examples are accepted. |