Add Mini-protocol parameter for cert diffusion max unacked

Author: tbagrel1

ouroboros-network/src/Ouroboros/Network/NodeToNode.hs

@@ -154,6 +154,7 @@ import Ouroboros.Network.Tracers
 import Ouroboros.Network.TxSubmission.Inbound qualified as TxInbound
 import Ouroboros.Network.TxSubmission.Outbound qualified as TxOutbound
 import Ouroboros.Network.Util.ShowProxy (ShowProxy, showProxy)
+import Ouroboros.Network.Protocol.ObjectDiffusion.Type (NumObjectIdsToAck)
 
 
 -- The Handshake tracer types are simply terrible.
@@ -209,9 +210,11 @@ data MiniProtocolParameters = MiniProtocolParameters {
       blockFetchPipeliningMax     :: !Word16,
       -- ^ maximal number of pipelined messages in 'block-fetch' mini-protocol.
 
-      txSubmissionMaxUnacked      :: !NumTxIdsToAck
+      txSubmissionMaxUnacked      :: !NumTxIdsToAck,
       -- ^ maximal number of unacked tx (pipelining is bounded by twice this
       -- number)
+
+      certDiffusionMaxUnacked :: !NumObjectIdsToAck
     }
 
 defaultMiniProtocolParameters :: MiniProtocolParameters
@@ -220,6 +223,7 @@ defaultMiniProtocolParameters = MiniProtocolParameters {
     , chainSyncPipeliningHighMark = 300
     , blockFetchPipeliningMax     = 100
     , txSubmissionMaxUnacked       = 10
+    , certDiffusionMaxUnacked     = 10
   }
 
 -- | Make an 'OuroborosApplication' for the bundle of mini-protocols that