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/Docbook.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/Docbook.hs')
-rw-r--r-- | Text/Pandoc/Writers/Docbook.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |