Man writer: properly handle headerless tables.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1881 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 4 insertions, 2 deletions

diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs
index 2872fd91a..df66e17ba 100644
--- a/src/Text/Pandoc/Writers/Man.hs
+++ b/src/Text/Pandoc/Writers/Man.hs
@@ -178,13 +178,15 @@ blockToMan opts (Table caption alignments widths headers rows) =
   let makeRow cols = text "T{" $$ 
                      (vcat $ intersperse (text "T}@T{") cols) $$ 
                      text "T}"
-  let colheadings' = makeRow colheadings
+  let colheadings' = if all null headers
+                        then empty
+                        else makeRow colheadings $$ char '_'
   body <- mapM (\row -> do 
                          cols <- mapM (blockListToMan opts) row
                          return $ makeRow cols) rows
   return $ text ".PP" $$ caption' $$ 
            text ".TS" $$ text "tab(@);" $$ coldescriptions $$ 
-           colheadings' $$ char '_' $$ vcat body $$ text ".TE"
+           colheadings' $$ vcat body $$ text ".TE"
 
 blockToMan opts (BulletList items) = do
   contents <- mapM (bulletListItemToMan opts) items