diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-15 15:58:44 -0800 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-15 16:01:46 -0800 |
commit | 9ce3e2bf85a535510fd9f708745803582fc1e6bd (patch) | |
tree | b54b99580caf09f4efa3c950b2df865f4278f4e2 /src/Text/Pandoc/ImageSize.hs | |
parent | b4e2d69cda504b6d312cad98b82e7c88e757ed20 (diff) |
ImageSize: Fixed implementation of sizeInPoints.
Diffstat (limited to 'src/Text/Pandoc/ImageSize.hs')
-rw-r--r-- | src/Text/Pandoc/ImageSize.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |