Release pact 4.9 (#1305)

* fix tests for info removal to be turned on post 4.9 * 4.9 changelog * fix tests to use 4.9
kadena-io · Oct 2, 2023 · 0c9cfe5 · 0c9cfe5
1 parent 445af04
commit 0c9cfe5
Show file tree

Hide file tree

Showing 5 changed files with 13 additions and 4 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,3 +1,12 @@
+4.9.0
+---
+### Bugfixes
+- Pact value infos fixed (#1287)
+
+### Features
+- Webauthn support (#1193)
+
+
 4.8.0
 ---
 ### Bugfixes

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/caps.repl b/tests/pact/caps.repl
@@ -852,7 +852,7 @@
  (continue-pact 1))
 
 (begin-tx)
-(env-exec-config ["DisablePact48"])
+(env-exec-config ["DisablePact49"])
 
  ; pact 48 caps
  (interface ops

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}))
   )

diff --git a/tests/pact/principals.repl b/tests/pact/principals.repl
@@ -626,7 +626,7 @@
 (create-table mstbl)
 
 ; Test principal caps created pre-info eliding
-(env-exec-config ["DisablePact48"])
+(env-exec-config ["DisablePact49"])
 (write-principal 'a (create-principal (create-capability-guard (test-cap m))))
 
 (write-principal 'b (create-principal (create-capability-guard (test-cap m))))