Don't show header rows of tables if not available

1 files changed, 4 insertions, 2 deletions

diff --git a/src/Text/Pandoc/Writers/PseudoPod.hs b/src/Text/Pandoc/Writers/PseudoPod.hs
index 291e69da6..cfc80d605 100644
--- a/src/Text/Pandoc/Writers/PseudoPod.hs
+++ b/src/Text/Pandoc/Writers/PseudoPod.hs
@@ -233,9 +233,11 @@ blockToPseudoPod opts (Table caption _ _ headers rows) =  do
   let rows''' = "=row" <> blankline <> "=cell " <> rows''
 
   let head' = makeRow headers'
-  let head'' = "=row" <> blankline <> "=cell " <> head'
+  let head'' = if all null headers
+                  then empty
+                  else "=headrow" <> blankline <> "=row" <> blankline <> "=cell " <> head'
 
-  return $ "=begin table " <> caption' <> blankline <> "=headrow" <> blankline <> head'' <> blankline <> "=bodyrows" <> blankline <> rows''' <> blankline <> "=end table" <> blankline
+  return $ "=begin table " <> caption' <> blankline <> head'' <> blankline <> "=bodyrows" <> blankline <> rows''' <> blankline <> "=end table" <> blankline
 
 -- | =over / =item * / =back
 blockToPseudoPod opts (BulletList items) = do