Added EnableNewTxSubmissionProtocol flag

Author: bolt12

ouroboros-network/src/Ouroboros/Network/Diffusion/Configuration.hs

@@ -16,6 +16,7 @@ module Ouroboros.Network.Diffusion.Configuration
   , defaultSyncTargets
   , defaultDeadlineChurnInterval
   , defaultBulkChurnInterval
+  , defaultEnableNewTxSubmissionProtocol
     -- re-exports
   , AcceptedConnectionsLimit (..)
   , BlockFetchConfiguration (..)
@@ -65,6 +66,8 @@ import Ouroboros.Network.Protocol.ChainSync.Codec (ChainSyncTimeout (..))
 import Ouroboros.Network.Protocol.Handshake (handshake_QUERY_SHUTDOWN_DELAY)
 import Ouroboros.Network.Protocol.Limits (shortWait)
 import Ouroboros.Network.Server.RateLimiting (AcceptedConnectionsLimit (..))
+import Ouroboros.Network.TxSubmission.Inbound.Server
+           (EnableNewTxSubmissionProtocol (..))
 
 
 -- | Default number of bootstrap peers
@@ -179,3 +182,6 @@ defaultDeadlineChurnInterval = 3300
 
 defaultBulkChurnInterval :: DiffTime
 defaultBulkChurnInterval = 900
+
+defaultEnableNewTxSubmissionProtocol :: EnableNewTxSubmissionProtocol
+defaultEnableNewTxSubmissionProtocol = DisableNewTxSubmissionProtocol

ouroboros-network/src/Ouroboros/Network/TxSubmission/Inbound/Server.hs

@@ -25,6 +25,11 @@ import Ouroboros.Network.Protocol.TxSubmission2.Server
 import Ouroboros.Network.TxSubmission.Inbound.Registry (PeerTxAPI (..))
 import Ouroboros.Network.TxSubmission.Inbound.Types
 
+-- | Flag to enable/disable the usage of the new tx submission protocol
+--
+data EnableNewTxSubmissionProtocol =
+      EnableNewTxSubmissionProtocol
+    | DisableNewTxSubmissionProtocol
 
 -- | A tx-submission outbound side (server, sic!).
 --