From abaa7cc2e8cc922e31b49236a596359604ad81e4 Mon Sep 17 00:00:00 2001
From: jmcardon <cardona.josem@gmail.com>
Date: Mon, 14 Aug 2023 13:25:50 -0400
Subject: [PATCH] fork hash infos

---
 src/Pact/Native.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/Pact/Native.hs b/src/Pact/Native.hs
index 3ebe770c5..ce5d1006d 100644
--- a/src/Pact/Native.hs
+++ b/src/Pact/Native.hs
@@ -315,7 +315,10 @@ hashDef = defRNative "hash" hash' (funType tTyString [("value",a)])
     hash' :: RNativeFun e
     hash' i as = case as of
       [TLitString s] -> go $ T.encodeUtf8 s
-      [a'] -> enforcePactValue a' >>= \pv -> go $ J.encodeStrict pv
+      [a'] -> do
+        elide <- ifExecutionFlagSet' FlagDisablePact48 id elideModRefInfo
+        pv <- elide <$> enforcePactValue a'
+        go $ J.encodeStrict pv
       _ -> argsError i as
       where go = return . tStr . asString . pactHash