@@ -1031,7 +1031,7 @@ blockToOpenXML' opts (Table _ blkCapt specs thead tbody tfoot) = do
10311031 map mkcell cells
10321032 let textwidth = 7920 -- 5.5 in in twips, 1/20 pt
10331033 let fullrow = 5000 -- 100% specified in pct
1034− let rowwidth = fullrow * sum widths
1034+ let (rowwidth :: Int) = round $ fullrow * sum widths
10351035 let mkgridcol w = mknode "w:gridCol"
10361036 [("w:w", tshow (floor (textwidth * w) :: Integer))] ()
10371037 let hasHeader = not $ all null headers