aboutsummaryrefslogtreecommitdiff
path: root/Text/Pandoc/Writers/HTML.hs
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2008-09-06 02:51:44 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2008-09-06 02:51:44 +0000
commit2127b7d5135af88dc3f2e7d78136ce24547bca3b (patch)
tree2f2153999cc1bb5ad70bacbb7cffd7bb18ac3b4e /Text/Pandoc/Writers/HTML.hs
parent4dca8f6e75948d489e8127119ce3787cb97ee1e2 (diff)
downloadpandoc-2127b7d5135af88dc3f2e7d78136ce24547bca3b.tar.gz
Changed Float to Double in definition of Table element.
(Double is more efficient in GHC.) Truncate width in opendocument output to 2 decimal places. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1418 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text/Pandoc/Writers/HTML.hs')
-rw-r--r--Text/Pandoc/Writers/HTML.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Text/Pandoc/Writers/HTML.hs b/Text/Pandoc/Writers/HTML.hs
index 4af644a91..066a39090 100644
--- a/Text/Pandoc/Writers/HTML.hs
+++ b/Text/Pandoc/Writers/HTML.hs
@@ -380,7 +380,7 @@ blockToHtml opts (Table capt aligns widths headers rows') = do
colHeadsToHtml :: WriterOptions
-> [[Char]]
- -> [Float]
+ -> [Double]
-> [[Block]]
-> State WriterState Html
colHeadsToHtml opts alignStrings widths headers = do
@@ -407,7 +407,7 @@ tableRowToHtml opts aligns columns =
tableItemToHtml :: WriterOptions
-> (Html -> Html)
-> [Char]
- -> Float
+ -> Double
-> [Block]
-> State WriterState Html
tableItemToHtml opts tag' align' width' item = do