squash a warning

This commit is contained in:
Rhiannon Morris 2023-12-25 21:48:20 +01:00
parent cb61556b17
commit 275490551b
1 changed files with 1 additions and 1 deletions

View File

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