From e9de86de2df265de24a937d14146518042af1bc3 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sun, 7 Mar 2010 19:35:06 +0000
Subject: Fixed docbook writer for headerless tables.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1863 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Text/Pandoc/Writers/Docbook.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Writers/Docbook.hs b/src/Text/Pandoc/Writers/Docbook.hs
index 294c043e2..996e50e6b 100644
--- a/src/Text/Pandoc/Writers/Docbook.hs
+++ b/src/Text/Pandoc/Writers/Docbook.hs
@@ -181,6 +181,7 @@ colHeadsToDocbook :: WriterOptions
                   -> [Double]
                   -> [[Block]] 
                   -> Doc
+colHeadsToDocbook _ _ _ hs | all null hs = empty
 colHeadsToDocbook opts alignStrings widths headers =
   let heads = zipWith3 (\align width item -> 
               tableItemToDocbook opts "th" align width item) 
-- 
cgit v1.2.3