From 3e3854fd4fbe84ec1750f7ce7e81a2a375abf41b Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 25 Oct 2018 22:21:04 -0700
Subject: Man reader: be more forgiving in parsing table format spec.

---
 src/Text/Pandoc/Readers/Groff.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src/Text/Pandoc/Readers')

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
-- 
cgit v1.2.3