fix tests for info removal to be turned on post 4.9

kadena-io · Oct 2, 2023 · cf96fc1 · cf96fc1
1 parent 445af04
commit cf96fc1
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/Pact/Eval.hs b/src/Pact/Eval.hs
@@ -1134,7 +1134,7 @@ enforcePactValue :: Pretty n => (Term n) -> Eval e PactValue
 enforcePactValue t = case toPactValue t of
   Left s -> evalError' t $ "Only value-level terms permitted: " <> pretty s
   Right v -> do
-    elide <- ifExecutionFlagSet' FlagDisablePact48 id stripAllPactValueInfo
+    elide <- ifExecutionFlagSet' FlagDisablePact49 id stripAllPactValueInfo
     return (elide v)
 
 reduceApp :: App (Term Ref) -> Eval e (Term Name)

diff --git a/tests/pact/hash.repl b/tests/pact/hash.repl
@@ -3,7 +3,7 @@
 (expect "hash roundtrip" (hash "hello") (tx-hash))
 
 (begin-tx)
-(env-exec-config ["DisablePact48"])
+(env-exec-config ["DisablePact49"])
 (interface iface
   (defun f:bool (a:module{iface}))
   )