From 1a512473cd3385cd3f7838b1962d32300feaaaab Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Sun, 17 Aug 2025 22:50:10 +0200 Subject: [PATCH] composOp of options --- 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 92de22594..da68dfc97 100644 --- a/src/compiler/api/GF/Grammar/Macros.hs +++ b/src/compiler/api/GF/Grammar/Macros.hs @@ -404,6 +404,7 @@ composOp co trm = RecType r -> liftM RecType (mapPairsM co r) P t i -> liftM2 P (co t) (return i) ExtR a c -> liftM2 ExtR (co a) (co c) + Opts t os -> liftM2 Opts (co t) (mapM (pairM co) os) T i cc -> liftM2 (flip T) (mapPairsM co cc) (changeTableType co i) V ty vs -> liftM2 V (co ty) (mapM co vs) Let (x,(mt,a)) b -> liftM3 let' (co a) (T.mapM co mt) (co b)