diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-02-15 22:56:53 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-02-15 23:02:17 -0800 |
| commit | cc410a71b58de1fa0e508a092b7c1d8ba6d3d3ab (patch) | |
| tree | 8787b90c78b7367e46a61833a4bd721e255ab73c /src/Text/Pandoc/Readers | |
| parent | 59764fa3884e63ee9711cc2d0da2ef3133c641ba (diff) | |
| download | pandoc-cc410a71b58de1fa0e508a092b7c1d8ba6d3d3ab.tar.gz | |
Allow `&` in emails (for entities).
Added tests for entities in titles and links.
Closes #723.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 74485fb9d..e037c0897 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -264,7 +264,7 @@ referenceKey = try $ do optional $ newline >> notFollowedBy blankline skipMany spaceChar notFollowedBy' (() <$ reference) - many1 $ escapedChar' <|> satisfy (not . isBlank) + many1 $ notFollowedBy space >> litChar let betweenAngles = try $ char '<' >> manyTill (escapedChar' <|> litChar) (char '>') src <- try betweenAngles <|> sourceURL |