diff options
| author | Simon Hengel <sol@typeful.net> | 2014-02-22 21:55:35 +0100 |
|---|---|---|
| committer | Simon Hengel <sol@typeful.net> | 2014-02-22 21:55:35 +0100 |
| commit | dfc006ad2b8f5cb27570ac02c77aa63c5c027cd9 (patch) | |
| tree | 1290969491d22db33cd4554cc857704b55ff7f87 /src/Haddock | |
| parent | fc7fd1875d31dbfd37eaa058177e534b4fc6bc25 (diff) | |
Turn a source code comment into specs
Diffstat (limited to 'src/Haddock')
| -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 |