Use integral values for w:tblW in docx.

Cloess #7141.
2021-03-13 12:05:52 -08:00 · 2021-03-13 12:05:52 -08:00 · eed18d231c
commit eed18d231c
parent 9bd36b03e9
4 changed files with 1 additions and 1 deletions
--- a/src/Text/Pandoc/Writers/Docx.hs
+++ b/src/Text/Pandoc/Writers/Docx.hs
@ -1031,7 +1031,7 @@ blockToOpenXML' opts (Table _ blkCapt specs thead tbody tfoot) = do
           map mkcell cells
  let textwidth = 7920  -- 5.5 in in twips, 1/20 pt
  let fullrow = 5000 -- 100% specified in pct
-  let rowwidth = fullrow * sum widths
+  let (rowwidth :: Int) = round $ fullrow * sum widths
  let mkgridcol w = mknode "w:gridCol"
                       [("w:w", tshow (floor (textwidth * w) :: Integer))] ()
  let hasHeader = not $ all null headers
--- a/test/docx/golden/table_one_row.docx
+++ b/test/docx/golden/table_one_row.docx
--- a/test/docx/golden/table_with_list_cell.docx
+++ b/test/docx/golden/table_with_list_cell.docx
--- a/test/docx/golden/tables.docx
+++ b/test/docx/golden/tables.docx