cardano-ledger upgrade: StakePoolTargetNum change to Word16

IntersectMBO · Dec 30, 2024 · fdd2b4f · fdd2b4f
1 parent 0ad8d68
commit fdd2b4f
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/cardano-api/gen/Test/Gen/Cardano/Api/Typed.hs b/cardano-api/gen/Test/Gen/Cardano/Api/Typed.hs
@@ -1005,7 +1005,7 @@ genProtocolParameters era = do
   protocolParamStakePoolDeposit <- genLovelace
   protocolParamMinPoolCost <- genLovelace
   protocolParamPoolRetireMaxEpoch <- genEpochInterval
-  protocolParamStakePoolTargetNum <- genNat
+  protocolParamStakePoolTargetNum <- genWord16
   protocolParamPoolPledgeInfluence <- genRationalInt64
   protocolParamMonetaryExpansion <- genRational
   protocolParamTreasuryCut <- genRational
@@ -1042,7 +1042,7 @@ genProtocolParametersUpdate era = do
   protocolUpdateStakePoolDeposit <- Gen.maybe genLovelace
   protocolUpdateMinPoolCost <- Gen.maybe genLovelace
   protocolUpdatePoolRetireMaxEpoch <- Gen.maybe genEpochInterval
-  protocolUpdateStakePoolTargetNum <- Gen.maybe genNat
+  protocolUpdateStakePoolTargetNum <- Gen.maybe genWord16
   protocolUpdatePoolPledgeInfluence <- Gen.maybe genRationalInt64
   protocolUpdateMonetaryExpansion <- Gen.maybe genRational
   protocolUpdateTreasuryCut <- Gen.maybe genRational

diff --git a/cardano-api/internal/Cardano/Api/ProtocolParameters.hs b/cardano-api/internal/Cardano/Api/ProtocolParameters.hs
@@ -326,7 +326,7 @@ data CommonProtocolParametersUpdate
   , cppKeyDeposit :: StrictMaybe Ledger.Coin
   , cppPoolDeposit :: StrictMaybe Ledger.Coin
   , cppPoolRetireMaxEpoch :: StrictMaybe Ledger.EpochInterval
-  , cppStakePoolTargetNum :: StrictMaybe Natural
+  , cppStakePoolTargetNum :: StrictMaybe Word16
   , cppPoolPledgeInfluence :: StrictMaybe Ledger.NonNegativeInterval
   , cppTreasuryExpansion :: StrictMaybe Ledger.UnitInterval
   , cppMonetaryExpansion :: StrictMaybe Ledger.UnitInterval
@@ -526,7 +526,7 @@ data ProtocolParameters
   , protocolParamPoolRetireMaxEpoch :: Ledger.EpochInterval
   -- ^ The maximum number of epochs into the future that stake pools
   -- are permitted to schedule a retirement.
-  , protocolParamStakePoolTargetNum :: Natural
+  , protocolParamStakePoolTargetNum :: Word16
   -- ^ The equilibrium target number of stake pools.
   --
   -- This is the \"k\" incentives parameter from the design document.
@@ -710,7 +710,7 @@ data ProtocolParametersUpdate
   , protocolUpdatePoolRetireMaxEpoch :: Maybe Ledger.EpochInterval
   -- ^ The maximum number of epochs into the future that stake pools
   -- are permitted to schedule a retirement.
-  , protocolUpdateStakePoolTargetNum :: Maybe Natural
+  , protocolUpdateStakePoolTargetNum :: Maybe Word16
   -- ^ The equilibrium target number of stake pools.
   --
   -- This is the \"k\" incentives parameter from the design document.