aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Parser.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Haddock/Parser.hs')
-rw-r--r--src/Haddock/Parser.hs2
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