diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-25 22:21:04 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-25 22:21:04 -0700 |
| commit | 3e3854fd4fbe84ec1750f7ce7e81a2a375abf41b (patch) | |
| tree | 6490a313b50fd9a63e950ceacfbd930110ce3a76 /src/Text | |
| parent | 5945c3b01197d17e48d06bef3dd76fa2547b245f (diff) | |
| download | pandoc-3e3854fd4fbe84ec1750f7ce7e81a2a375abf41b.tar.gz | |
Man reader: be more forgiving in parsing table format spec.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Groff.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Groff.hs b/src/Text/Pandoc/Readers/Groff.hs index 01030ccd7..e0b9d9c94 100644 --- a/src/Text/Pandoc/Readers/Groff.hs +++ b/src/Text/Pandoc/Readers/Groff.hs @@ -383,14 +383,13 @@ tableOption = do tableFormatSpec :: PandocMonad m => GroffLexer m [[TableFormat]] tableFormatSpec = do speclines <- tableFormatSpecLine `sepBy1` (newline <|> char ',') + skipMany spacetab char '.' return speclines tableFormatSpecLine :: PandocMonad m => GroffLexer m [TableFormat] -tableFormatSpecLine = do - as <- many1 $ skipMany spacetab >> tableColFormat - skipMany spacetab - return as +tableFormatSpecLine = + many1 $ try $ skipMany spacetab >> tableColFormat tableColFormat :: PandocMonad m => GroffLexer m TableFormat tableColFormat = do |