From 63ef2588c8f20be2bf87c4e80f92827348bc5cc7 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Wed, 15 Mar 2023 17:33:18 +1300
Subject: [PATCH] Fix type error (CatTrap uses Doubles, Typograffiti Floats).

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

diff --git a/src/Main.hs b/src/Main.hs
index 4b3b08a..9996f9e 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -161,7 +161,7 @@ main = do
             font <- liftIO $ instantiatePattern ft pat (-1, size)
             atlas <- allocAtlas (liftIO . bmpAndMetricsForIndex font SubpixelDefault)
                         (map toEnum $ IS.toList glyphs)
-                        (hbScale sysfont, hbScale sysfont)
+                        (realToFrac $ hbScale sysfont, realToFrac $ hbScale sysfont)
             return ((pat, size), atlas)
         let atlases' = M.fromList atlases
 
-- 
2.30.2