diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-28 17:21:53 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-28 17:22:20 -0700 |
| commit | 3cb8a3f397469edb2e29d17209195081d556035a (patch) | |
| tree | e272052048d11d69c409d96a9eea01b2c2a56036 /src/Text/Pandoc/Readers/Roff.hs | |
| parent | 7c9ff8461f47d8811c51dd8ac08402dfb0d997d1 (diff) | |
| download | pandoc-3cb8a3f397469edb2e29d17209195081d556035a.tar.gz | |
Roff tokenizer: allow space before ( in table options.
Diffstat (limited to 'src/Text/Pandoc/Readers/Roff.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Roff.hs | 3 |
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 |