diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-05-02 22:58:47 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-05-02 22:58:47 -0700 |
| commit | 4c4382420356928d73026395d4ab2f0f9957df08 (patch) | |
| tree | 23dbc3ba9895a13d3fbda63846c58b6de0c63fa5 /src | |
| parent | 007eb96e06bc1fff12119addf2e03552ac992b2e (diff) | |
| download | pandoc-4c4382420356928d73026395d4ab2f0f9957df08.tar.gz | |
Fixed empty reference links. Closes #1186.
Includes test.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 97a3168da..36f73d847 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -349,10 +349,8 @@ referenceKey = try $ do char ':' skipSpaces >> optional newline >> skipSpaces >> notFollowedBy (char '[') let sourceURL = liftM unwords $ many $ try $ do - notFollowedBy' referenceTitle - skipMany spaceChar - optional $ newline >> notFollowedBy blankline skipMany spaceChar + notFollowedBy' referenceTitle notFollowedBy' (() <$ reference) many1 $ notFollowedBy space >> litChar let betweenAngles = try $ char '<' >> |