fork hash infos

kadena-io · Aug 14, 2023 · abaa7cc · abaa7cc
1 parent 7279c83
commit abaa7cc
Showing 1 changed file with 4 additions and 1 deletion.
diff --git 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