From 275490551bc9729003040024e8a25d16c21d90ab Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Mon, 25 Dec 2023 21:48:20 +0100
Subject: [PATCH] squash a warning

---
 laantas-script/GlyphsBase.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/laantas-script/GlyphsBase.hs b/laantas-script/GlyphsBase.hs
index 2bdceb7..5effe82 100644
--- a/laantas-script/GlyphsBase.hs
+++ b/laantas-script/GlyphsBase.hs
@@ -108,7 +108,7 @@ doGlyphs gs e = wrap $ run act e where
 
 
 liftDia :: Diacritic -> Diacritic' SizeInfo
-liftDia f sz = let (x, w) = f sz in (x, sz {width = w} :: SizeInfo)
+liftDia f sz@(SI {..}) = let (x, w) = f sz in (x, SI {width = w, ..})
 
 glyphWidth :: EGlyph -> M Double
 glyphWidth (G {size}, ss) =