1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
index e0440ec61..5007aaab2 100644
--- a/src/Text/Pandoc/Readers/Man.hs
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -136,10 +136,12 @@ parseTable = do
   parseTableCell ts = do
     st <- getState
     let ts' = Foldable.toList $ unGroffTokens ts
-    let tcell = do
+    let tcell = try $ do
           skipMany memptyLine
           plain . trimInlines <$> (parseInlines <* eof)
-    res <- lift $ readWithMTokens tcell st ts'
+    res <- if null ts'
+              then return $ Right mempty
+              else lift $ readWithMTokens tcell st ts'
     case res of
       Left e  -> throwError e
       Right x -> return x