@@ -387,8 +387,9 @@ blockToOpenXML opts (Table caption aligns widths headers rows) = do
388 [ mknode "w:tbl" []
388 [ mknode "w:tbl" []
389 ( mknode "w:tblPr" []
389 ( mknode "w:tblPr" []
390+ ( [ mknode "w:tblStyle" [("w:val","TableNormal")] () ] ++
390− [ mknode "w:tblCaption" [("w:val", captionStr)] ()
391+ [ mknode "w:tblCaption" [("w:val", captionStr)] ()
391− | not (null caption) ]
392+ | not (null caption) ] )
392 : mknode "w:tblGrid" []
393 : mknode "w:tblGrid" []
393 (if all (==0) widths
394 (if all (==0) widths