rhi/lang
1
0
Fork 0
Code Issues 2 Pull requests Releases Wiki Activity

squash a warning

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
laantas-script/GlyphsBase.hs
View file

@ -108,7 +108,7 @@ doGlyphs gs e = wrap $ run act e where
liftDia :: Diacritic -> Diacritic' SizeInfo 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 :: EGlyph -> M Double
glyphWidth (G {size}, ss) = glyphWidth (G {size}, ss) =