Fix treasury_withdrawals_action cddl definition

IntersectMBO · Jan 10, 2025 · d4ff3a1 · d4ff3a1
1 parent 59844d8
commit d4ff3a1
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/eras/conway/impl/cddl-files/conway.cddl b/eras/conway/impl/cddl-files/conway.cddl
@@ -686,7 +686,7 @@ stake_vote_deleg_cert = (10, stake_credential, pool_keyhash, drep)
 
 stake_vote_reg_deleg_cert = (13, stake_credential, pool_keyhash, drep, coin)
 
-treasury_withdrawals_action = (2, {reward_account => coin}, policy_hash / nil)
+treasury_withdrawals_action = (2, {* reward_account => coin}, policy_hash / nil)
 
 unreg_cert = (8, stake_credential, coin)
 

diff --git a/eras/conway/impl/testlib/Test/Cardano/Ledger/Conway/CDDL.hs b/eras/conway/impl/testlib/Test/Cardano/Ledger/Conway/CDDL.hs
@@ -243,7 +243,7 @@ hard_fork_initiation_action =
 treasury_withdrawals_action :: Named Group
 treasury_withdrawals_action =
   "treasury_withdrawals_action"
-    =:~ grp [2, a (mp [asKey reward_account ==> coin]), policy_hash / VNil]
+    =:~ grp [2, a (mp [0 <+ asKey reward_account ==> coin]), policy_hash / VNil]
 
 no_confidence :: Named Group
 no_confidence = "no_confidence" =:~ grp [3, gov_action_id / VNil]