From 9ce3e2bf85a535510fd9f708745803582fc1e6bd Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 15 Jan 2012 15:58:44 -0800 Subject: ImageSize: Fixed implementation of sizeInPoints. --- src/Text/Pandoc/ImageSize.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/Text/Pandoc/ImageSize.hs b/src/Text/Pandoc/ImageSize.hs index 1b6e9b0ab..d48c6a5ae 100644 --- a/src/Text/Pandoc/ImageSize.hs +++ b/src/Text/Pandoc/ImageSize.hs @@ -70,7 +70,7 @@ sizeInPixels :: ImageSize -> (Integer, Integer) sizeInPixels s = (pxX s, pxY s) sizeInPoints :: ImageSize -> (Integer, Integer) -sizeInPoints s = (pxX s `div` dpiX s * 72, pxY s `div` dpiY s * 72) +sizeInPoints s = (pxX s * 72 `div` dpiX s, pxY s * 72 `div` dpiY s) pngSize :: ByteString -> Maybe ImageSize pngSize img = do -- cgit v1.2.3