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