Release pact 4.9

CHANGELOG.md

@@ -1,3 +1,12 @@
+4.9.0
+---
+### Bugfixes
+- Pact value infos fixed (#1287)
+
+### Features
+- Webauthn support (#1193)
+
+
 4.8.0
 ---
 ### Bugfixes

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)

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

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

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