Add PParamUpdate minPoolCost to Shelley/Allegra/Mary CDDL

jasagredo · lehins · commit 06cc27f039b2 · 2025-06-07T07:02:25.000-06:00
diff --git a/eras/allegra/impl/cddl-files/allegra.cddl b/eras/allegra/impl/cddl-files/allegra.cddl
@@ -261,6 +261,7 @@ protocol_param_update =
   , ? 13 : nonce                  ; extra entropy
   , ? 14 : [protocol_version] ; protocol version
   , ? 15 : coin                   ; min utxo value
+  , ? 16 : coin                   ; min pool cost
   }
 
 
diff --git a/eras/mary/impl/cddl-files/mary.cddl b/eras/mary/impl/cddl-files/mary.cddl
@@ -269,6 +269,7 @@ protocol_param_update =
   , ? 13 : nonce                  ; extra entropy
   , ? 14 : [protocol_version] ; protocol version
   , ? 15 : coin                   ; min utxo value
+  , ? 16 : coin                   ; min pool cost
   }
 
 
diff --git a/eras/shelley/impl/cddl-files/shelley.cddl b/eras/shelley/impl/cddl-files/shelley.cddl
@@ -259,6 +259,7 @@ protocol_param_update =
   , ? 13 : nonce                  ; extra entropy
   , ? 14 : [protocol_version] ; protocol version
   , ? 15 : coin                   ; min utxo value
+  , ? 16 : coin                   ; min pool cost
   }
 
 
diff --git a/eras/shelley/impl/testlib/Test/Cardano/Ledger/Shelley/CDDL.hs b/eras/shelley/impl/testlib/Test/Cardano/Ledger/Shelley/CDDL.hs
@@ -276,6 +276,7 @@ protocol_param_update =
       , opt (idx 13 ==> nonce) //- "extra entropy"
       , opt (idx 14 ==> arr [a $ protocol_version @era]) //- "protocol version"
       , opt (idx 15 ==> coin) //- "min utxo value"
+      , opt (idx 16 ==> coin) //- "min pool cost"
       ]
 
 transaction_witness_set :: Rule

Original file line number	Diff line number	Diff line change
`@@ -261,6 +261,7 @@ protocol_param_update =`
`261`	`261`	`, ? 13 : nonce ; extra entropy`
`262`	`262`	`, ? 14 : [protocol_version] ; protocol version`
`263`	`263`	`, ? 15 : coin ; min utxo value`
	`264`	`+ , ? 16 : coin ; min pool cost`
`264`	`265`	`}`
`265`	`266`
`266`	`267`
Original file line number	Diff line number	Diff line change
`@@ -269,6 +269,7 @@ protocol_param_update =`
`269`	`269`	`, ? 13 : nonce ; extra entropy`
`270`	`270`	`, ? 14 : [protocol_version] ; protocol version`
`271`	`271`	`, ? 15 : coin ; min utxo value`
	`272`	`+ , ? 16 : coin ; min pool cost`
`272`	`273`	`}`
`273`	`274`
`274`	`275`
Original file line number	Diff line number	Diff line change
`@@ -259,6 +259,7 @@ protocol_param_update =`
`259`	`259`	`, ? 13 : nonce ; extra entropy`
`260`	`260`	`, ? 14 : [protocol_version] ; protocol version`
`261`	`261`	`, ? 15 : coin ; min utxo value`
	`262`	`+ , ? 16 : coin ; min pool cost`
`262`	`263`	`}`
`263`	`264`
`264`	`265`
Original file line number	Diff line number	Diff line change
`@@ -276,6 +276,7 @@ protocol_param_update =`
`276`	`276`	`, opt (idx 13 ==> nonce) //- "extra entropy"`
`277`	`277`	`, opt (idx 14 ==> arr [a $ protocol_version @era]) //- "protocol version"`
`278`	`278`	`, opt (idx 15 ==> coin) //- "min utxo value"`
	`279`	`+ , opt (idx 16 ==> coin) //- "min pool cost"`
`279`	`280`	`]`
`280`	`281`
`281`	`282`	`transaction_witness_set :: Rule`