aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-10-28 17:21:53 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-10-28 17:22:20 -0700
commit3cb8a3f397469edb2e29d17209195081d556035a (patch)
treee272052048d11d69c409d96a9eea01b2c2a56036 /src/Text/Pandoc
parent7c9ff8461f47d8811c51dd8ac08402dfb0d997d1 (diff)
downloadpandoc-3cb8a3f397469edb2e29d17209195081d556035a.tar.gz
Roff tokenizer: allow space before ( in table options.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/Roff.hs3
1 files changed, 2 insertions, 1 deletions
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