NodeToNodeV_7 version for full duplex connection

IntersectMBO · Jan 26, 2021 · becd227 · becd227
1 parent 13f0d57
commit becd227
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/ouroboros-network/src/Ouroboros/Network/NodeToNode/Version.hs b/ouroboros-network/src/Ouroboros/Network/NodeToNode/Version.hs
@@ -49,6 +49,10 @@ data NodeToNodeVersion
     -- ^ Changes:
     --
     -- * Replace 'TxSubmision' with 'Txsubmission2' protocol.
+    | NodeToNodeV_7
+    -- ^ Changes:
+    --
+    -- * Enable full duplex connections.
   deriving (Eq, Ord, Enum, Bounded, Show, Typeable)
 
 nodeToNodeVersionCodec :: CodecCBORTerm (Text, Maybe Int) NodeToNodeVersion
@@ -60,13 +64,15 @@ nodeToNodeVersionCodec = CodecCBORTerm { encodeTerm, decodeTerm }
     encodeTerm NodeToNodeV_4  = CBOR.TInt 4
     encodeTerm NodeToNodeV_5  = CBOR.TInt 5
     encodeTerm NodeToNodeV_6  = CBOR.TInt 6
+    encodeTerm NodeToNodeV_7  = CBOR.TInt 7
 
     decodeTerm (CBOR.TInt 1) = Right NodeToNodeV_1
     decodeTerm (CBOR.TInt 2) = Right NodeToNodeV_2
     decodeTerm (CBOR.TInt 3) = Right NodeToNodeV_3
     decodeTerm (CBOR.TInt 4) = Right NodeToNodeV_4
     decodeTerm (CBOR.TInt 5) = Right NodeToNodeV_5
     decodeTerm (CBOR.TInt 6) = Right NodeToNodeV_6
+    decodeTerm (CBOR.TInt 7) = Right NodeToNodeV_7
     decodeTerm (CBOR.TInt n) = Left ( T.pack "decode NodeToNodeVersion: unknonw tag: "
                                         <> T.pack (show n)
                                     , Just n