DO NOT MERGE

coot · coot · commit 9c131913d573 · 2024-09-27T16:15:14.000+02:00
The support for `NodeToClientV_18` is implemented in PR#1251.
diff --git a/ouroboros-consensus-cardano/src/ouroboros-consensus-cardano/Ouroboros/Consensus/Cardano/Node.hs b/ouroboros-consensus-cardano/src/ouroboros-consensus-cardano/Ouroboros/Consensus/Cardano/Node.hs
@@ -496,9 +496,10 @@ instance CardanoHardForkConstraints c
       , (NodeToClientV_15, CardanoNodeToClientVersion11)
       , (NodeToClientV_16, CardanoNodeToClientVersion12)
       , (NodeToClientV_17, CardanoNodeToClientVersion13)
+      , (NodeToClientV_18, CardanoNodeToClientVersion13)
       ]
 
-  latestReleasedNodeVersion _prx = (Just NodeToNodeV_13, Just NodeToClientV_17)
+  latestReleasedNodeVersion _prx = (Just NodeToNodeV_13, Just NodeToClientV_18)
 
 {-------------------------------------------------------------------------------
   ProtocolInfo
diff --git a/ouroboros-consensus-cardano/src/shelley/Ouroboros/Consensus/Shelley/Ledger/NetworkProtocolVersion.hs b/ouroboros-consensus-cardano/src/shelley/Ouroboros/Consensus/Shelley/Ledger/NetworkProtocolVersion.hs
@@ -67,6 +67,7 @@ instance SupportedNetworkProtocolVersion (ShelleyBlock proto era) where
       , (NodeToClientV_15, ShelleyNodeToClientVersion7)
       , (NodeToClientV_16, ShelleyNodeToClientVersion8)
       , (NodeToClientV_17, ShelleyNodeToClientVersion9)
+      , (NodeToClientV_18, ShelleyNodeToClientVersion9)
       ]
 
   latestReleasedNodeVersion = latestReleasedNodeVersionDefault
diff --git a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Ledger/Query/Version.hs b/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Ledger/Query/Version.hs
@@ -29,3 +29,4 @@ nodeToClientVersionToQueryVersion x = case x of
   NodeToClientV_15 -> QueryVersion2
   NodeToClientV_16 -> QueryVersion2
   NodeToClientV_17 -> QueryVersion2
+  NodeToClientV_18 -> QueryVersion2

Original file line number	Diff line number	Diff line change
`@@ -67,6 +67,7 @@ instance SupportedNetworkProtocolVersion (ShelleyBlock proto era) where`
`67`	`67`	`, (NodeToClientV_15, ShelleyNodeToClientVersion7)`
`68`	`68`	`, (NodeToClientV_16, ShelleyNodeToClientVersion8)`
`69`	`69`	`, (NodeToClientV_17, ShelleyNodeToClientVersion9)`
	`70`	`+ , (NodeToClientV_18, ShelleyNodeToClientVersion9)`
`70`	`71`	`]`
`71`	`72`
`72`	`73`	`latestReleasedNodeVersion = latestReleasedNodeVersionDefault`