From 7279c8374e918ae172670550d862926a49590c5a Mon Sep 17 00:00:00 2001
From: jmcardon <cardona.josem@gmail.com>
Date: Mon, 14 Aug 2023 12:34:09 -0400
Subject: [PATCH] fix modref infos in cap guard

---
 src/Pact/Eval.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Pact/Eval.hs b/src/Pact/Eval.hs
index d7c7bfbd7..3204b85cf 100644
--- 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