diff options
| author | Alexander <ilabdsf@gmail.com> | 2017-08-28 17:48:46 +0300 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-08-28 07:48:46 -0700 |
| commit | 05bb8ef4aa6faa6a4da3c54a0483d42b846733ca (patch) | |
| tree | 6b2a5d75a76b0f92818c9d6b29fef8f198c98f76 /src/Text/Pandoc | |
| parent | 8fcf66453cc4f9d1cf9413aa466477e56290d733 (diff) | |
| download | pandoc-05bb8ef4aa6faa6a4da3c54a0483d42b846733ca.tar.gz | |
RST reader: handle blank lines correctly in line blocks (#3881)
Previously pandoc would sometimes combine two line blocks separated by blanks, and ignore trailing blank lines within the line block.
Test is checked to be consisted with http://rst.ninjs.org/
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index 9ed18d4e0..2543f11f0 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -838,7 +838,7 @@ blankLineBlockLine = try (char '|' >> blankline) lineBlockLines :: Monad m => ParserT [Char] st m [String] lineBlockLines = try $ do lines' <- many1 (lineBlockLine <|> ((:[]) <$> blankLineBlockLine)) - skipMany1 $ blankline <|> blankLineBlockLine + skipMany $ blankline return lines' -- | Parse a table using 'headerParser', 'rowParser', |