diff options
| author | alexbiehl <alex.biehl@gmail.com> | 2017-12-17 11:53:59 +0100 |
|---|---|---|
| committer | Alexander Biehl <alexbiehl@gmail.com> | 2018-02-01 14:58:18 +0100 |
| commit | 2cdf1413564b49dcdf63b39d6871155c69b53974 (patch) | |
| tree | f94718f81ce47ee26cccb0ea9adca67aa01e54f3 | |
| parent | ce30e3449f723cd1ba28d30455dd500e06397168 (diff) | |
Take until line feed
| -rw-r--r-- | haddock-library/src/Documentation/Haddock/Parser.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-library/src/Documentation/Haddock/Parser.hs b/haddock-library/src/Documentation/Haddock/Parser.hs index fcd26f83..4ea87db7 100644 --- a/haddock-library/src/Documentation/Haddock/Parser.hs +++ b/haddock-library/src/Documentation/Haddock/Parser.hs @@ -338,7 +338,7 @@ definitionList :: BS.ByteString -> Parser (DocH mod Identifier) definitionList indent = DocDefList <$> p where p = do - label <- "[" *> (parseStringBS <$> takeWhile1_ (/= ']')) <* ("]" <* optional ":") + label <- "[" *> (parseStringBS <$> takeWhile1_ (notInClass "]\n")) <* ("]" <* optional ":") c <- takeLine (cs, items) <- more indent p let contents = parseString . dropNLs . unlines $ c : cs |