From 59d7479135c5e093c3faff7dc7926268d51bbd1b Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Wed, 15 Mar 2023 18:38:28 +1300
Subject: [PATCH] Hand the looked-up atlas to Typograffiti.

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

diff --git a/src/Main.hs b/src/Main.hs
index 93aee31..70ffc0a 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -112,7 +112,7 @@ lowerToks _ = CSSCond.B False
 
 renderLayout atlases drawText (LayoutSpan ((x, y), _) font self)
     | Just atlas <- M.lookup (pattern font, fontSize font) atlases = do
-        drawText' <- drawText $ fragmentGlyphs self
+        drawText' <- drawText atlas $ fragmentGlyphs self
         -- FIXME Allow CSS to set the colour.
         liftIO $ arDraw drawText' [TextTransformMultiply $ V4 0 0 0 1]
                         (V2 (fromEnum x) (fromEnum y))
-- 
2.30.2