1 files changed, 4 insertions(+), 4 deletions(-)

M Data/Text/Glyphize/Font.hs

@@ 660,11 660,11 @@ fontScale :: Font -> (Int, Int)
 fontScale font = unsafePerformIO $
     withForeignPtr font $ \font' -> alloca $ \x' -> alloca $ \y' -> do
         hb_font_get_scale font' x' y'
-        x <- peek x'
-        y <- peek y'
-        return (x, y)
+        x <- peek x' :: IO Int32
+        y <- peek y' :: IO Int32
+        return (fromEnum x, fromEnum y)
 foreign import ccall "hb_font_get_scale" hb_font_get_scale
-    :: Font_ -> Ptr Int -> Ptr Int -> IO ()
+    :: Font_ -> Ptr Int32 -> Ptr Int32 -> IO ()
 
 -- | Fetches the "synthetic slant" of a font.
 fontSyntheticSlant :: Font -> Float