From e9668bc988b2be0034632e0da0c061feecb28336 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Tue, 15 Jul 2008 00:32:21 +0000
Subject: 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
---
 Text/Pandoc/Writers/HTML.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'Text/Pandoc/Writers/HTML.hs')

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
 
-- 
cgit v1.2.3