From 1944b94edca881d14e979d564719da6f196f8e63 Mon Sep 17 00:00:00 2001
From: Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>
Date: Sun, 23 Feb 2014 05:02:47 +0000
Subject: Don't shadow ‘strip’.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src/Haddock')

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.
-- 
cgit v1.2.3