summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-01-15 15:58:44 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-01-15 16:01:46 -0800
commit9ce3e2bf85a535510fd9f708745803582fc1e6bd (patch)
treeb54b99580caf09f4efa3c950b2df865f4278f4e2
parentb4e2d69cda504b6d312cad98b82e7c88e757ed20 (diff)
ImageSize: Fixed implementation of sizeInPoints.
-rw-r--r--src/Text/Pandoc/ImageSize.hs2
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