diff --git a/src/compiler/api/GF/Compile/Rename.hs b/src/compiler/api/GF/Compile/Rename.hs index e871ea1e6..e9933a05e 100644 --- a/src/compiler/api/GF/Compile/Rename.hs +++ b/src/compiler/api/GF/Compile/Rename.hs @@ -340,6 +340,10 @@ renamePattern env patt = (p',vs) <- renp p return (PAs x p', x:vs) + PImplArg p -> do + (p,vs) <- renp p + return (PImplArg p, vs) + _ -> return (patt,[]) renid = renameIdentTerm env