From 1f469f35ab2d7033491a64e7ac396e3d1a967a56 Mon Sep 17 00:00:00 2001 From: Rhiannon Morris Date: Sun, 15 Sep 2024 15:41:11 +0200 Subject: [PATCH] replace liftM2 with liftA2 --- 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 5effe82..5a49be1 100644 --- a/laantas-script/GlyphsBase.hs +++ b/laantas-script/GlyphsBase.hs @@ -56,7 +56,7 @@ joinSegs (P ps) = fmap mconcat $ sequence ps joinSegs (Shift dx dy segs) = do E {size} <- ask localS (Svg.shift (size * dx, size * dy)) $ joinSegs segs -joinSegs (ss1 :<>: ss2) = liftM2 (<>) (joinSegs ss1) (joinSegs ss2) +joinSegs (ss1 :<>: ss2) = liftA2 (<>) (joinSegs ss1) (joinSegs ss2) localS :: MonadState s m => (s -> s) -> m a -> m a localS f m = do old <- get; modify f; res <- m; put old; pure res