diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-05 21:33:47 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-05 21:33:47 -0800 |
| commit | 9f9a57de19058154221f2a80bd9b307b22d7bde1 (patch) | |
| tree | cbb0801d2920e7db3ce3fc47dc61ff54ccc50251 /src | |
| parent | 7512c9dd124ed4a82b4dc70c91d89d16e8919a8b (diff) | |
| download | pandoc-9f9a57de19058154221f2a80bd9b307b22d7bde1.tar.gz | |
Markdown reader: Fixed backslash escapes in reference links.
Closes #312.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index a5b39222b..cc9b8a23d 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -217,16 +217,15 @@ referenceKey = try $ do lab <- reference char ':' skipSpaces >> optional newline >> skipSpaces >> notFollowedBy (char '[') - let nl = char '\n' >> notFollowedBy blankline >> return ' ' let sourceURL = liftM unwords $ many $ try $ do notFollowedBy' referenceTitle skipMany spaceChar - optional nl + optional $ newline >> notFollowedBy blankline skipMany spaceChar notFollowedBy' reference - many1 (satisfy $ not . isBlank) + many1 $ escapedChar' <|> satisfy (not . isBlank) let betweenAngles = try $ char '<' >> - manyTill (noneOf ">\n" <|> nl) (char '>') + manyTill (escapedChar' <|> litChar) (char '>') src <- try betweenAngles <|> sourceURL tit <- option "" referenceTitle blanklines |