From 36f1c4f39bfcebf68c5ba8f0d1c324629a3feb9e Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 26 Oct 2018 22:55:48 -0700 Subject: Roff tokenizer: allow spaces after table row format spec. --- src/Text/Pandoc/Readers/Roff.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Readers/Roff.hs') diff --git a/src/Text/Pandoc/Readers/Roff.hs b/src/Text/Pandoc/Readers/Roff.hs index c310da558..c05b87b28 100644 --- a/src/Text/Pandoc/Readers/Roff.hs +++ b/src/Text/Pandoc/Readers/Roff.hs @@ -411,7 +411,7 @@ tableFormatSpec = do tableFormatSpecLine :: PandocMonad m => RoffLexer m [CellFormat] tableFormatSpecLine = - many1 $ try $ skipMany spacetab >> tableColFormat + many1 $ try $ skipMany spacetab *> tableColFormat <* skipMany spacetab tableColFormat :: PandocMonad m => RoffLexer m CellFormat tableColFormat = do -- cgit v1.2.3