From dfc006ad2b8f5cb27570ac02c77aa63c5c027cd9 Mon Sep 17 00:00:00 2001 From: Simon Hengel Date: Sat, 22 Feb 2014 21:55:35 +0100 Subject: Turn a source code comment into specs --- src/Haddock/Parser.hs | 2 -- 1 file changed, 2 deletions(-) (limited to 'src') diff --git a/src/Haddock/Parser.hs b/src/Haddock/Parser.hs index a6ad817c..095f385e 100644 --- a/src/Haddock/Parser.hs +++ b/src/Haddock/Parser.hs @@ -306,8 +306,6 @@ birdtracks = DocCodeBlock . DocString . intercalate "\n" . stripSpace <$> many1 where line = skipHorizontalSpace *> ">" *> takeLine --- | Strip leading spaces, but ignore blank lines. If any of the lines don't --- start with a ' ', however, we don't touch the block. stripSpace :: [String] -> [String] stripSpace = fromMaybe <*> mapM strip where -- cgit v1.2.3