From 3cb8a3f397469edb2e29d17209195081d556035a Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 28 Oct 2018 17:21:53 -0700 Subject: Roff tokenizer: allow space before ( in table options. --- src/Text/Pandoc/Readers/Roff.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Readers/Roff.hs') diff --git a/src/Text/Pandoc/Readers/Roff.hs b/src/Text/Pandoc/Readers/Roff.hs index 11da37953..58bafb07a 100644 --- a/src/Text/Pandoc/Readers/Roff.hs +++ b/src/Text/Pandoc/Readers/Roff.hs @@ -396,7 +396,8 @@ tableOptions = try $ many tableOption <* spaces <* char ';' tableOption :: PandocMonad m => RoffLexer m TableOption tableOption = do k <- many1 letter - v <- option "" $ do + v <- option "" $ try $ do + skipMany spacetab char '(' manyTill anyChar (char ')') skipMany spacetab -- cgit v1.2.3