diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Roff.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Roff.hs b/src/Text/Pandoc/Readers/Roff.hs index 2ec79ddb2..74cc325a4 100644 --- a/src/Text/Pandoc/Readers/Roff.hs +++ b/src/Text/Pandoc/Readers/Roff.hs @@ -396,7 +396,7 @@ lexTable :: PandocMonad m => SourcePos -> RoffLexer m RoffTokens lexTable pos = do skipMany lexComment spaces - opts <- option [] tableOptions + opts <- option [] $ try $ tableOptions <* char ';' case lookup "tab" opts of Just (c:_) -> modifyState $ \st -> st{ tableTabChar = c } _ -> modifyState $ \st -> st{ tableTabChar = '\t' } @@ -448,7 +448,7 @@ tableRow = do return (c:cs) tableOptions :: PandocMonad m => RoffLexer m [TableOption] -tableOptions = try $ many tableOption <* spaces <* char ';' +tableOptions = many tableOption <* spaces tableOption :: PandocMonad m => RoffLexer m TableOption tableOption = do |