diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-11-05 08:16:15 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-11-05 08:16:15 -0800 |
| commit | 7af45f78d12537c1bd5a2cac80bae0e18dc0961f (patch) | |
| tree | 7bd3e0934a76b7e66b82bb1f319bde3f90347f2b /src/Text/Pandoc | |
| parent | a2c40c36d519b2b10554a6d4d894e513e1968256 (diff) | |
| download | pandoc-7af45f78d12537c1bd5a2cac80bae0e18dc0961f.tar.gz | |
Textile reader: Allow newlines before pipes in table.
Closes #654.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Textile.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs index da5d8bee8..263c863ab 100644 --- a/src/Text/Pandoc/Readers/Textile.hs +++ b/src/Text/Pandoc/Readers/Textile.hs @@ -310,7 +310,8 @@ tableCell = do -- | A table row is made of many table cells tableRow :: Parser [Char] ParserState [TableCell] -tableRow = try $ ( char '|' *> (endBy1 tableCell (char '|')) <* newline) +tableRow = try $ ( char '|' *> + (endBy1 tableCell (optional blankline *> char '|')) <* newline) -- | Many table rows tableRows :: Parser [Char] ParserState [[TableCell]] |