[commit: haddock] master: Don't shadow ‘strip’. (1944b94)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/haddock

On branch  : master
Link       : http://git.haskell.org/haddock.git/commitdiff/1944b94edca881d14e979d564719da6f196f8e63

>---------------------------------------------------------------

commit 1944b94edca881d14e979d564719da6f196f8e63
Author: Mateusz Kowalczyk <fuuzetsu at fuuzetsu.co.uk>
Date:   Sun Feb 23 05:02:47 2014 +0000

    Don't shadow ‘strip’.
    
    -Wall complains


>---------------------------------------------------------------

1944b94edca881d14e979d564719da6f196f8e63
 src/Haddock/Parser.hs |    8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Haddock/Parser.hs b/src/Haddock/Parser.hs
index 095f385..cd7bb02 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.