diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Roff.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Roff.hs b/src/Text/Pandoc/Readers/Roff.hs index c05b87b28..bbbe49171 100644 --- a/src/Text/Pandoc/Readers/Roff.hs +++ b/src/Text/Pandoc/Readers/Roff.hs @@ -404,7 +404,9 @@ tableOption = do tableFormatSpec :: PandocMonad m => RoffLexer m [[CellFormat]] tableFormatSpec = do - speclines <- tableFormatSpecLine `sepBy1` (newline <|> char ',') + first <- tableFormatSpecLine + rest <- many $ try $ (newline <|> char ',') *> tableFormatSpecLine + let speclines = first:rest spaces char '.' return $ speclines ++ repeat (lastDef [] speclines) -- last line is default |