From 0ab0042c920132249d2e677fc1bfa918993b9416 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Tue, 26 Sep 2023 11:01:37 +1300
Subject: [PATCH] Don't cache results of main function unless processed
 (neglected in previous commit).

---
 Data/Text/Glyphize.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Data/Text/Glyphize.hs b/Data/Text/Glyphize.hs
index bd6c894..29fd6ab 100644
--- a/Data/Text/Glyphize.hs
+++ b/Data/Text/Glyphize.hs
@@ -55,7 +55,7 @@ shape font buffer features = unsafePerformIO $ withBuffer buffer $ \buffer' -> d
         hb_shape font' buffer' features' $ toEnum len
     infos <- glyphInfos buffer'
     pos <- glyphsPos buffer'
-    return $ zip infos pos
+    return $ noCache zip infos pos
 foreign import ccall "hb_shape" hb_shape :: Font_ -> Buffer' -> Ptr Feature -> Word -> IO ()
 
 -- | Fills in unset segment properties based on buffer unicode contents.
-- 
2.30.2