diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-12-13 19:24:27 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-12-13 20:03:59 -0800 |
| commit | 3822d6c4403e55bc3b4ae9e8ea846fe563807645 (patch) | |
| tree | db72f02592179e7175bbfa2448027bea177163b7 /src/Text/Pandoc | |
| parent | dfbb4d399463ad7bf8911bea03fe1c738900157a (diff) | |
| download | pandoc-3822d6c4403e55bc3b4ae9e8ea846fe563807645.tar.gz | |
Markdown reader: Fixed referenceKey parser to allow space after newline.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index f27d0635c..4bd9c9e07 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -207,9 +207,8 @@ referenceKey = try $ do notFollowedBy' referenceTitle skipMany (oneOf " \t") optional nl - optional nonindentSpaces - notFollowedBy' reference skipMany (oneOf " \t") + notFollowedBy' reference many1 (noneOf " \t\n") let betweenAngles = try $ char '<' >> manyTill (noneOf ">\n" <|> nl) (char '>') |