newFont :: FilePath -> Int -> IO Font
newFont file size = do
  cFont <- withCString file $ \cFile -> cNewFont cFile $ fromIntegral size
  foreignPtr <- newForeignPtr deleteFontFunPtr cFont
  return $ Font foreignPtr size
newFont :: FilePath -> Int -> IO Font
newFont file size = do
  cFont <- withCString file $ \cFile -> cNewFont cFile $ fromIntegral size
  foreignPtr <- newForeignPtr deleteFontFunPtr cFont
  return $ Font foreignPtr size
newFont file size = do
  cFont <- withCString file $ \cFile -> cNewFont cFile $ fromIntegral size
  foreignPtr <- newForeignPtr deleteFontFunPtr cFont
  return $ Font foreignPtr size