diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-07-16 07:54:44 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-07-16 07:55:39 -0700 |
| commit | 1bff443ac9b02139c00ebeafd8e5cc910d7bee9e (patch) | |
| tree | f8b0f04d6973559e62c33035e7a2baaebf1ca478 /src/Text | |
| parent | 047f9b3714aa46919014dc9c3f146286127acacf (diff) | |
| download | pandoc-1bff443ac9b02139c00ebeafd8e5cc910d7bee9e.tar.gz | |
Removed redundant clause in markdown parser.
Thanks @dubiousjim. Close #1431.
Diffstat (limited to 'src/Text')
| -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 1e74f051c..1e8a03ae8 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -353,8 +353,7 @@ referenceKey = try $ do notFollowedBy' referenceTitle notFollowedBy' (() <$ reference) many1 $ notFollowedBy space >> litChar - let betweenAngles = try $ char '<' >> - manyTill (escapedChar' <|> litChar) (char '>') + let betweenAngles = try $ char '<' >> manyTill litChar (char '>') src <- try betweenAngles <|> sourceURL tit <- option "" referenceTitle -- currently we just ignore MMD-style link/image attributes |