From c9aadf73826fc0aa32c3230632021db456c18075 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Fri, 7 Mar 2025 08:57:55 +0100 Subject: [PATCH] added missing case --- src/compiler/api/GF/Grammar/Macros.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/compiler/api/GF/Grammar/Macros.hs b/src/compiler/api/GF/Grammar/Macros.hs index 5040ad65c..edaa400ac 100644 --- a/src/compiler/api/GF/Grammar/Macros.hs +++ b/src/compiler/api/GF/Grammar/Macros.hs @@ -419,6 +419,7 @@ composOp co trm = ImplArg t -> liftM ImplArg (co t) Markup t as cs -> liftM2 (Markup t) (mapAttrs co as) (mapM co cs) Reset c t -> liftM (Reset c) (co t) + Typed t ty -> liftM2 Typed (co t) (co ty) _ -> return trm -- covers K, Vr, Cn, Sort, EPatt composSafePattOp op = runIdentity . composPattOp (return . op)