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/Docbook.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/Text/Pandoc/Writers/Docbook.hs b/Text/Pandoc/Writers/Docbook.hs
index ac7c9da12..d089116cf 100644
--- a/Text/Pandoc/Writers/Docbook.hs
+++ b/Text/Pandoc/Writers/Docbook.hs
@@ -195,7 +195,7 @@ tableItemToDocbook opts tag align width item =
   let attrib = [("align", align)] ++ 
                if width /= 0
                   then [("style", "{width: " ++ 
-                        show (truncate (100*width)) ++ "%;}")]
+                        show (truncate (100*width) :: Integer) ++ "%;}")]
                   else [] 
   in  inTags True tag attrib $ vcat $ map (blockToDocbook opts) item
 
-- 
cgit v1.2.3