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

replace liftM2 with liftA2

Browse source
This commit is contained in:
Rhiannon Morris 2024-09-15 15:41:11 +02:00
parent 3237c127e0
commit 1f469f35ab
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

@ -56,7 +56,7 @@ joinSegs (P ps) = fmap mconcat $ sequence ps
joinSegs (Shift dx dy segs) = do joinSegs (Shift dx dy segs) = do
E {size} <- ask E {size} <- ask
localS (Svg.shift (size * dx, size * dy)) $ joinSegs segs 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 :: MonadState s m => (s -> s) -> m a -> m a
localS f m = do old <- get; modify f; res <- m; put old; pure res localS f m = do old <- get; modify f; res <- m; put old; pure res