diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-08-29 14:40:04 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-08-29 14:40:04 -0700 |
| commit | 85ed24e849975051f370dd8bf98c6c62ca92447a (patch) | |
| tree | 1ad39785429e18f78b12fd94e37f62a41b24d411 | |
| parent | 7c0b314cbeeaa1248007c40ac9f0d1b5cc4289da (diff) | |
| download | pandoc-85ed24e849975051f370dd8bf98c6c62ca92447a.tar.gz | |
RSTR reader: don't skip link definitions after comments.
Closes #4860.
| -rw-r--r-- | src/Text/Pandoc/Readers/RST.hs | 1 | ||||
| -rw-r--r-- | test/command/4860.md | 9 |
2 files changed, 10 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs index 576c3b77c..6a9e7cb95 100644 --- a/src/Text/Pandoc/Readers/RST.hs +++ b/src/Text/Pandoc/Readers/RST.hs @@ -172,6 +172,7 @@ parseRST = do docMinusKeys <- concat <$> manyTill (referenceKey <|> anchorDef <|> noteBlock <|> citationBlock <|> + (snd <$> withRaw comment) <|> headerBlock <|> lineClump) eof setInput docMinusKeys setPosition startPos diff --git a/test/command/4860.md b/test/command/4860.md new file mode 100644 index 000000000..9198f68d7 --- /dev/null +++ b/test/command/4860.md @@ -0,0 +1,9 @@ +``` +% pandoc -f rst -t native +This is broken_. + +.. ***** REFERENCES FOLLOW ***** +.. _broken: http://google.com +^D +[Para [Str "This",Space,Str "is",Space,Link ("",[],[]) [Str "broken"] ("http://google.com",""),Str "."]] +``` |