diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Roff.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Roff.hs b/src/Text/Pandoc/Readers/Roff.hs index 2bf2d070e..8121bedfe 100644 --- a/src/Text/Pandoc/Readers/Roff.hs +++ b/src/Text/Pandoc/Readers/Roff.hs @@ -376,7 +376,6 @@ lexMacro = do "ie" -> lexConditional "ie" "if" -> lexConditional "if" "el" -> lexConditional "el" - "TS" -> lexTable pos _ -> do args <- lexArgs @@ -384,6 +383,7 @@ lexMacro = do "" -> return mempty "\\\"" -> return mempty "\\#" -> return mempty + "TS" -> lexTable pos "de" -> lexMacroDef args "de1" -> lexMacroDef args "ds" -> lexStringDef args @@ -458,8 +458,7 @@ tableOption = do char '(' manyTill anyChar (char ')') skipMany spacetab - optional (char ',') - skipMany spacetab + optional (char ',' >> skipMany spacetab) return (k,v) tableFormatSpec :: PandocMonad m => RoffLexer m [[CellFormat]] |