GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-29 22:42:52 -06:00
Code Issues Packages Projects Releases Wiki Activity

added missing case

Browse Source
This commit is contained in:
Krasimir Angelov
2025-03-07 08:57:55 +01:00
parent d97292cfd4
commit c9aadf7382
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/compiler/api/GF/Grammar/Macros.hs
View File

@@ -419,6 +419,7 @@ composOp co trm =
ImplArg t -> liftM ImplArg (co t) ImplArg t -> liftM ImplArg (co t)
Markup t as cs -> liftM2 (Markup t) (mapAttrs co as) (mapM co cs) Markup t as cs -> liftM2 (Markup t) (mapAttrs co as) (mapM co cs)
Reset c t -> liftM (Reset c) (co t) 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 _ -> return trm -- covers K, Vr, Cn, Sort, EPatt
composSafePattOp op = runIdentity . composPattOp (return . op) composSafePattOp op = runIdentity . composPattOp (return . op)