diff options
Diffstat (limited to 'Text/Pandoc/Writers/HTML.hs')
-rw-r--r-- | Text/Pandoc/Writers/HTML.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Text/Pandoc/Writers/HTML.hs b/Text/Pandoc/Writers/HTML.hs index 8390b1288..435d78fad 100644 --- a/Text/Pandoc/Writers/HTML.hs +++ b/Text/Pandoc/Writers/HTML.hs @@ -396,9 +396,8 @@ tableItemToHtml :: WriterOptions tableItemToHtml opts tag' align' width' item = do contents <- blockListToHtml opts item let attrib = [align align'] ++ - if width' /= 0 - then [thestyle ("width: " ++ show (truncate (100*width')) ++ - "%;")] + if width' /= 0 + then [thestyle ("width: " ++ (show (truncate (100 * width') :: Integer)) ++ "%;")] else [] return $ tag' ! attrib $ contents |