diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/PseudoPod.hs | 6 |
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 |