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) =