From bcfc66092a3eb0501e8be2295cfe27a059586f34 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 2 Nov 2018 23:14:15 -0700
Subject: Roff reader: Don't require global table options.

---
 src/Text/Pandoc/Readers/Roff.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Readers/Roff.hs b/src/Text/Pandoc/Readers/Roff.hs
index 2ec79ddb2..74cc325a4 100644
--- a/src/Text/Pandoc/Readers/Roff.hs
+++ b/src/Text/Pandoc/Readers/Roff.hs
@@ -396,7 +396,7 @@ lexTable :: PandocMonad m => SourcePos -> RoffLexer m RoffTokens
 lexTable pos = do
   skipMany lexComment
   spaces
-  opts <- option [] tableOptions
+  opts <- option [] $ try $ tableOptions <* char ';'
   case lookup "tab" opts of
     Just (c:_) -> modifyState $ \st -> st{ tableTabChar = c }
     _          -> modifyState $ \st -> st{ tableTabChar = '\t' }
@@ -448,7 +448,7 @@ tableRow = do
   return (c:cs)
 
 tableOptions :: PandocMonad m => RoffLexer m [TableOption]
-tableOptions = try $ many tableOption <* spaces <* char ';'
+tableOptions = many tableOption <* spaces
 
 tableOption :: PandocMonad m => RoffLexer m TableOption
 tableOption = do
-- 
cgit v1.2.3