From 9ce3e2bf85a535510fd9f708745803582fc1e6bd Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sun, 15 Jan 2012 15:58:44 -0800
Subject: [PATCH] ImageSize: Fixed implementation of sizeInPoints.

---
 src/Text/Pandoc/ImageSize.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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