diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-07-15 00:32:21 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-07-15 00:32:21 +0000 |
commit | e9668bc988b2be0034632e0da0c061feecb28336 (patch) | |
tree | 86cdf49e549cb74c625c280bf6a3181dd9a96f6d /Text/Pandoc/Writers/HTML.hs | |
parent | 5be53bbd3ff3a6af2a2eacbe37c847b92a562169 (diff) | |
download | pandoc-e9668bc988b2be0034632e0da0c061feecb28336.tar.gz |
Added type declarations to avoid -Wall 'defaulting' warnings in writers.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1323 788f1e2b-df1e-0410-8736-df70ead52e1b
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 |