diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-09-06 02:51:44 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-09-06 02:51:44 +0000 |
commit | 2127b7d5135af88dc3f2e7d78136ce24547bca3b (patch) | |
tree | 2f2153999cc1bb5ad70bacbb7cffd7bb18ac3b4e /Text/Pandoc/Writers/RTF.hs | |
parent | 4dca8f6e75948d489e8127119ce3787cb97ee1e2 (diff) | |
download | pandoc-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/RTF.hs')
-rw-r--r-- | Text/Pandoc/Writers/RTF.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Text/Pandoc/Writers/RTF.hs b/Text/Pandoc/Writers/RTF.hs index e31a162a5..002ef7edc 100644 --- a/Text/Pandoc/Writers/RTF.hs +++ b/Text/Pandoc/Writers/RTF.hs @@ -190,7 +190,7 @@ blockToRTF indent alignment (Table caption aligns sizes headers rows) = concatMap (tableRowToRTF False indent aligns sizes) rows ++ rtfPar indent 0 alignment (inlineListToRTF caption) -tableRowToRTF :: Bool -> Int -> [Alignment] -> [Float] -> [[Block]] -> String +tableRowToRTF :: Bool -> Int -> [Alignment] -> [Double] -> [[Block]] -> String tableRowToRTF header indent aligns sizes cols = let columns = concat $ zipWith (tableItemToRTF indent) aligns cols totalTwips = 6 * 1440 -- 6 inches |