diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-09-20 11:15:03 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-09-20 11:15:03 -0700 |
| commit | 37c6f6adfe5f292bccd42046842e5cb2cc7484d0 (patch) | |
| tree | 1f9f4f528fbd4db791eb85276dea8bb274236b1c /src/Text/Pandoc/Readers/RST.hs | |
| parent | 5b1fdeaf41d6ee4b6b82cbeb4e7f7508182b3566 (diff) | |
| download | pandoc-37c6f6adfe5f292bccd42046842e5cb2cc7484d0.tar.gz | |
RST reader: fix bug with internal link targets.
They were gobbling up indented content underneath.
Closes #4919.
Diffstat (limited to 'src/Text/Pandoc/Readers/RST.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/RST.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs index 274c9da7a..28fa7b83e 100644 --- a/src/Text/Pandoc/Readers/RST.hs +++ b/src/Text/Pandoc/Readers/RST.hs @@ -1090,7 +1090,7 @@ referenceKey = do targetURI :: Monad m => ParserT [Char] st m [Char] targetURI = do skipSpaces - optional newline + optional $ try $ newline >> notFollowedBy blankline contents <- trim <$> many1 (satisfy (/='\n') <|> try (newline >> many1 spaceChar >> noneOf " \t\n")) |