Roff reader: Don't require global table options.

This commit is contained in:
John MacFarlane
2018-11-02 23:18:08 -07:00
parent 30dbd6a981
commit bcfc66092a
+2 -2
View File
@@ -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