diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Haddock/Parser.hs | 2 |
1 files changed, 0 insertions, 2 deletions
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 |