@@ -40,8 +40,6 @@ import qualified Ouroboros.Consensus.Shelley.Node.Praos as Praos
4040
4141import Prelude
4242
43- import Data.Maybe
44-
4543------------------------------------------------------------------------------
4644-- Real Cardano protocol
4745--
@@ -137,7 +135,7 @@ mkSomeConsensusProtocolCardano NodeByronProtocolConfiguration {
137135
138136 (conwayGenesis, _conwayGenesisHash) <-
139137 firstExceptT CardanoProtocolInstantiationConwayGenesisReadError $
140- Conway. readGenesisMaybe npcConwayGenesisFile
138+ Conway. readGenesis npcConwayGenesisFile
141139 npcConwayGenesisFileHash
142140
143141 shelleyLeaderCredentials <-
@@ -235,21 +233,18 @@ mkSomeConsensusProtocolCardano NodeByronProtocolConfiguration {
235233 -- version. It is the protocol version that this node will declare
236234 -- that it understands during the Babbage era. That is, it is the
237235 -- version of protocol /after/ Babbage, i.e. Conway.
238- Praos. babbageProtVer = ProtVer (natVersion @ 9 ) 0 ,
236+ Praos. babbageProtVer = ProtVer (natVersion @ 9 ) 1 ,
239237 Praos. babbageMaxTxCapacityOverrides =
240238 TxLimits. mkOverrides TxLimits. noOverridesMeasure
241239 }
242240 , paramsConway =
243241 Praos. ProtocolParamsConway {
244- -- If Conway is not enabled, this is the Babbage protocol version.
245- --
246- -- If Conway is enabled, this is the Conway protocol version.
242+ -- ProtVer 9 corresponds to the Conway bootstrap era.
243+ -- ProtVer 10 corresponds to the Conway post bootstrap era.
247244 Praos. conwayProtVer =
248- if isNothing npcConwayGenesisFile
249- then ProtVer (natVersion @ 8 ) 0
250- else if npcExperimentalHardForksEnabled
251- then ProtVer (natVersion @ 10 ) 0
252- else ProtVer (natVersion @ 9 ) 0 ,
245+ if npcExperimentalHardForksEnabled
246+ then ProtVer (natVersion @ 10 ) 0
247+ else ProtVer (natVersion @ 9 ) 1 ,
253248 Praos. conwayMaxTxCapacityOverrides =
254249 TxLimits. mkOverrides TxLimits. noOverridesMeasure
255250 }
0 commit comments