diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-11-02 23:14:15 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-11-02 23:18:08 -0700 |
| commit | bcfc66092a3eb0501e8be2295cfe27a059586f34 (patch) | |
| tree | 4dc6a40f790c926ab7dc9fd17be24d5442568a00 | |
| parent | 30dbd6a98127867301a9bb478bcb230b1dca5b6d (diff) | |
| download | pandoc-bcfc66092a3eb0501e8be2295cfe27a059586f34.tar.gz | |
Roff reader: Don't require global table options.
| -rw-r--r-- | src/Text/Pandoc/Readers/Roff.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Roff.hs b/src/Text/Pandoc/Readers/Roff.hs index 2ec79ddb2..74cc325a4 100644 --- a/src/Text/Pandoc/Readers/Roff.hs +++ b/src/Text/Pandoc/Readers/Roff.hs @@ -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 |