fix modref infos in cap guard

kadena-io · Aug 14, 2023 · 7279c83 · 7279c83
1 parent 528b0cd
commit 7279c83
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Pact/Eval.hs b/src/Pact/Eval.hs
@@ -162,7 +162,8 @@ enforceGuard i g = case g of
     void $ runSysOnly $ evalByName _ugFun _ugArgs (getInfo i)
   GCapability CapabilityGuard{..} -> do
     traverse_ (enforcePactId True) _cgPactId
-    args <- enforcePactValue' _cgArgs
+    elide <- ifExecutionFlagSet' FlagDisablePact48 id elideModRefInfo
+    args <- traverse (fmap elide . enforcePactValue) _cgArgs
     acquired <- capabilityAcquired $ SigCapability _cgName args
     unless acquired $ failTx' i "Capability not acquired"
   where