Man reader: be more forgiving in parsing table format spec.

This commit is contained in:
John MacFarlane 2018-10-25 22:21:04 -07:00
parent 5945c3b011
commit 3e3854fd4f

View file

@ -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