Roff tokenizer: allow space before ( in table options.
commit3cb8a3f397469edb2e29d17209195081d556035a
authorJohn MacFarlane <jgm@berkeley.edu>
dateSun 28 Oct 2018, 17:21 (8 years ago)
parent7c9ff84
src/Text/Pandoc/Readers/Roff.hs+2−1
@@ -396,7 +396,8 @@ tableOptions = try $ many tableOption <* spaces <* char ';'
396396tableOption :: PandocMonad m => RoffLexer m TableOption
397397tableOption = do
398398 k <- many1 letter
399− v <- option "" $ do
399+ v <- option "" $ try $ do
400+ skipMany spacetab
400401 char '('
401402 manyTill anyChar (char ')')
402403 skipMany spacetab