diff --git a/cardano-diffusion/api/lib/Cardano/Network/NodeToClient/Version.hs b/cardano-diffusion/api/lib/Cardano/Network/NodeToClient/Version.hs index cd52bcac113..86553eb923e 100644 --- a/cardano-diffusion/api/lib/Cardano/Network/NodeToClient/Version.hs +++ b/cardano-diffusion/api/lib/Cardano/Network/NodeToClient/Version.hs @@ -63,6 +63,8 @@ data NodeToClientVersion | NodeToClientV_23 -- ^ added @QueryDRepsDelegations@, -- LedgerPeerSnapshot CBOR encoding contains block hash and NetworkMagic + | NodeToClientV_24 + -- ^ added @ValidateTx@ query deriving (Eq, Ord, Enum, Bounded, Show, Generic, NFData) -- | We set 16ths bit to distinguish `NodeToNodeVersion` and @@ -84,6 +86,7 @@ nodeToClientVersionCodec = CodecCBORTerm { encodeTerm, decodeTerm } NodeToClientV_21 -> enc 21 NodeToClientV_22 -> enc 22 NodeToClientV_23 -> enc 23 + NodeToClientV_24 -> enc 24 where enc :: Int -> CBOR.Term enc = CBOR.TInt . (`setBit` nodeToClientVersionBit) @@ -98,6 +101,7 @@ nodeToClientVersionCodec = CodecCBORTerm { encodeTerm, decodeTerm } 21 -> Right NodeToClientV_21 22 -> Right NodeToClientV_22 23 -> Right NodeToClientV_23 + 24 -> Right NodeToClientV_24 n -> Left (unknownTag n) where dec :: CBOR.Term -> Either (Text, Maybe Int) Int diff --git a/cardano-diffusion/orphan-instances/Cardano/Network/OrphanInstances.hs b/cardano-diffusion/orphan-instances/Cardano/Network/OrphanInstances.hs index 463a45a0a4e..e3d37210744 100644 --- a/cardano-diffusion/orphan-instances/Cardano/Network/OrphanInstances.hs +++ b/cardano-diffusion/orphan-instances/Cardano/Network/OrphanInstances.hs @@ -79,6 +79,7 @@ instance FromJSON NodeToClientVersion where Number 21 -> pure NodeToClientV_21 Number 22 -> pure NodeToClientV_22 Number 23 -> pure NodeToClientV_23 + Number 24 -> pure NodeToClientV_24 Number x -> fail $ "FromJSON.NodeToClientVersion: unsupported node-to-client protocol version " ++ show x x -> fail $ "FromJSON.NodeToClientVersion: error parsing NodeToClientVersion: " ++ show x @@ -92,6 +93,7 @@ instance ToJSON NodeToClientVersion where NodeToClientV_21 -> Number 21 NodeToClientV_22 -> Number 22 NodeToClientV_23 -> Number 23 + NodeToClientV_24 -> Number 24 instance ToJSON NodeToNodeVersionData where toJSON (NodeToNodeVersionData (NetworkMagic m) dm ps q) = object