Textile reader: Allow newlines before pipes in table.

Closes #654.
This commit is contained in:
John MacFarlane 2012-11-05 08:16:15 -08:00
parent a2c40c36d5
commit 7af45f78d1

View file

@ -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]]