Merge pull request #1271 from Plutonomicon/klntsky/571-stake-pool-tar…

…get-num Add `stakePoolTargetNum` protocol parameter
Plutonomicon · Nov 30, 2022 · bf43e4b · bf43e4b
2 parents 8705691 + 6b35608
commit bf43e4b
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -42,6 +42,8 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/)
 
 ### Fixed
 
+- Added missing `stakePoolTargetNum` ("`nOpt`") protocol parameter (see [CIP-9](https://cips.cardano.org/cips/cip9/)) ([#571](https://github.com/Plutonomicon/cardano-transaction-lib/issues/571))
+
 ## [3.0.0] - 2022-11-21
 
 ### Added

diff --git a/src/Internal/QueryM/Ogmios.purs b/src/Internal/QueryM/Ogmios.purs
@@ -1000,7 +1000,7 @@ type ProtocolParametersRaw =
   , "stakeKeyDeposit" :: BigInt
   , "poolDeposit" :: BigInt
   , "poolRetirementEpochBound" :: BigInt
-  , "desiredNumberOfPools" :: BigInt
+  , "desiredNumberOfPools" :: UInt
   , "poolInfluence" :: PParamRational
   , "monetaryExpansion" :: PParamRational
   , "treasuryExpansion" :: PParamRational
@@ -1054,8 +1054,7 @@ newtype ProtocolParameters = ProtocolParameters
   , stakePoolDeposit :: Coin
   , minPoolCost :: Coin
   , poolRetireMaxEpoch :: Epoch
-  -- TODO: add stakePoolTargetNum :: UInt
-  -- https://github.com/Plutonomicon/cardano-transaction-lib/issues/571
+  , stakePoolTargetNum :: UInt
   , poolPledgeInfluence :: Rational
   , monetaryExpansion :: Rational
   , treasuryCut :: Rational
@@ -1099,6 +1098,7 @@ instance DecodeAeson ProtocolParameters where
       , stakePoolDeposit: Coin ps.poolDeposit
       , minPoolCost: Coin ps.minPoolCost
       , poolRetireMaxEpoch: Epoch ps.poolRetirementEpochBound
+      , stakePoolTargetNum: ps.desiredNumberOfPools
       , poolPledgeInfluence: unwrap ps.poolInfluence
       , monetaryExpansion: unwrap ps.monetaryExpansion
       , treasuryCut: unwrap ps.treasuryExpansion -- Rational