@@ -571,10 +571,12 @@ blockToOpenXML opts (Table caption aligns widths headers rows) = do
571 [ mknode "w:tcBorders" []
571 [ mknode "w:tcBorders" []
572 $ mknode "w:bottom" [("w:val","single")] ()
572 $ mknode "w:bottom" [("w:val","single")] ()
573 , mknode "w:vAlign" [("w:val","bottom")] () ]
573 , mknode "w:vAlign" [("w:val","bottom")] () ]
574+ let emptyCell = [mknode "w:p" [] [mknode "w:pPr" [] $
575+ [mknode "w:pStyle" [("w:val","Compact")] ()]]]
574 let mkcell border contents = mknode "w:tc" []
576 let mkcell border contents = mknode "w:tc" []
575 $ [ borderProps | border ] ++
577 $ [ borderProps | border ] ++
576 if null contents
578 if null contents
577− then [mknode "w:p" [] ()]
579+ then emptyCell
578 else contents
580 else contents
579 let mkrow border cells = mknode "w:tr" [] $ map (mkcell border) cells
581 let mkrow border cells = mknode "w:tr" [] $ map (mkcell border) cells
580 let textwidth = 7920 -- 5.5 in in twips, 1/20 pt
582 let textwidth = 7920 -- 5.5 in in twips, 1/20 pt