Added NodeToClientV_21

Author: coot

ouroboros-network-api/src/Ouroboros/Network/NodeToClient/Version.hs

@@ -53,6 +53,8 @@ data NodeToClientVersion
     -- ^ added @GetLedgerPeerSnapshot@
     | NodeToClientV_20
     -- ^ added @QueryStakePoolDefaultVote@
+    | NodeToClientV_21
+    -- ^ added @GetNetworkState@
   deriving (Eq, Ord, Enum, Bounded, Show, Typeable, Generic, NFData)
 
 -- | We set 16ths bit to distinguish `NodeToNodeVersion` and
@@ -71,6 +73,7 @@ nodeToClientVersionCodec = CodecCBORTerm { encodeTerm, decodeTerm }
           NodeToClientV_18 -> enc 18
           NodeToClientV_19 -> enc 19
           NodeToClientV_20 -> enc 20
+          NodeToClientV_21 -> enc 21
         where
           enc :: Int -> CBOR.Term
           enc = CBOR.TInt . (`setBit` nodeToClientVersionBit)
@@ -82,6 +85,7 @@ nodeToClientVersionCodec = CodecCBORTerm { encodeTerm, decodeTerm }
             18 -> Right NodeToClientV_18
             19 -> Right NodeToClientV_19
             20 -> Right NodeToClientV_20
+            21 -> Right NodeToClientV_21
             n  -> Left (unknownTag n)
         where
           dec :: CBOR.Term -> Either (Text, Maybe Int) Int

ouroboros-network-protocols/cddl/specs/handshake-node-to-client.cddl

@@ -18,8 +18,8 @@ versionTable = { * versionNumber => nodeToClientVersionData }
 
 
 ; as of version 2 (which is no longer supported) we set 15th bit to 1
-;               16    / 17    / 18    / 19    / 20
-versionNumber = 32784 / 32785 / 32786 / 32787 / 32788
+;               16    / 17    / 18    / 19    / 20    / 21
+versionNumber = 32784 / 32785 / 32786 / 32787 / 32788 / 32789
 
 ; As of version 15 and higher
 nodeToClientVersionData = [networkMagic, query]