Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions cabal.project
Original file line number Diff line number Diff line change
Expand Up @@ -59,8 +59,8 @@ allow-newer:
source-repository-package
type: git
location: https://github.com/IntersectMBO/ouroboros-network
tag: 8dfff7b8916f7a56b2a3773438d5e5530c780710
--sha256: sha256-wMDq19G1SW4+puuQUUjgaULSou4+r7wJj6evnWoW/Xk=
tag: peras-staging/pr-5202
--sha256: sha256-nTbjunQaqt6/syzSKw24Lne50083dI2SZFirG2/1T9U=
subdir:
ouroboros-network
ouroboros-network-protocols
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -39,6 +39,7 @@ module Ouroboros.Consensus.Network.NodeToNode
, initiatorAndResponder
) where

import Cardano.Base.FeatureFlags (CardanoFeatureFlag)
import Codec.CBOR.Decoding (Decoder)
import qualified Codec.CBOR.Decoding as CBOR
import Codec.CBOR.Encoding (Encoding)
Expand All @@ -54,6 +55,7 @@ import qualified Data.ByteString.Lazy as BSL
import Data.Hashable (Hashable)
import Data.Int (Int64)
import Data.Map.Strict (Map)
import Data.Set (Set)
import Data.Void (Void)
import qualified Network.Mux as Mux
import Network.TypedProtocol.Codec
Expand Down Expand Up @@ -994,13 +996,15 @@ mkApps kernel rng Tracers{..} mkCodecs ByteLimits{..} chainSyncTimeouts lopBucke
-- on the protocol version, but it eventually may; this is why @_version@ is
-- currently unused.
initiator ::
Set CardanoFeatureFlag ->
MiniProtocolParameters ->
NodeToNodeVersion ->
NodeToNodeVersionData ->
Apps m addr b b b b b b a c ->
OuroborosBundleWithExpandedCtx 'Mux.InitiatorMode addr b m a Void
initiator miniProtocolParameters version versionData Apps{..} =
initiator featureFlags miniProtocolParameters version versionData Apps{..} =
nodeToNodeProtocols
featureFlags
miniProtocolParameters
-- TODO: currently consensus is using 'ConnectionId' for its 'peer' type.
-- This is currently ok, as we might accept multiple connections from the
Expand All @@ -1017,6 +1021,8 @@ initiator miniProtocolParameters version versionData Apps{..} =
(InitiatorProtocolOnly (MiniProtocolCb (\ctx -> aTxSubmission2Client version ctx)))
, perasCertDiffusionProtocol =
(InitiatorProtocolOnly (MiniProtocolCb (\ctx -> aPerasCertDiffusionClient version ctx)))
, perasVoteDiffusionProtocol =
error "perasVoteDiffusionProtocol: not implemented"
, keepAliveProtocol =
(InitiatorProtocolOnly (MiniProtocolCb (\ctx -> aKeepAliveClient version ctx)))
, peerSharingProtocol =
Expand All @@ -1032,13 +1038,15 @@ initiator miniProtocolParameters version versionData Apps{..} =
-- on the protocol version, but it eventually may; this is why @_version@ is
-- currently unused.
initiatorAndResponder ::
Set CardanoFeatureFlag ->
MiniProtocolParameters ->
NodeToNodeVersion ->
NodeToNodeVersionData ->
Apps m addr b b b b b b a c ->
OuroborosBundleWithExpandedCtx 'Mux.InitiatorResponderMode addr b m a c
initiatorAndResponder miniProtocolParameters version versionData Apps{..} =
initiatorAndResponder featureFlags miniProtocolParameters version versionData Apps{..} =
nodeToNodeProtocols
featureFlags
miniProtocolParameters
( NodeToNodeProtocols
{ chainSyncProtocol =
Expand All @@ -1061,6 +1069,8 @@ initiatorAndResponder miniProtocolParameters version versionData Apps{..} =
(MiniProtocolCb (\initiatorCtx -> aPerasCertDiffusionClient version initiatorCtx))
(MiniProtocolCb (\responderCtx -> aPerasCertDiffusionServer version responderCtx))
)
, perasVoteDiffusionProtocol =
error "perasVoteDiffusionProtocol: not implemented"
, keepAliveProtocol =
( InitiatorAndResponderProtocol
(MiniProtocolCb (\initiatorCtx -> aKeepAliveClient version initiatorCtx))
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -740,7 +740,7 @@ runWith RunNodeArgs{..} encAddrNtN decAddrNtN LowLevelRunNodeArgs{..} =
version
llrnVersionDataNTN
( \versionData ->
NTN.initiator miniProtocolParams version versionData
NTN.initiator llrnFeatureFlags miniProtocolParams version versionData
-- Initiator side won't start responder side of Peer
-- Sharing protocol so we give a dummy implementation
-- here.
Expand All @@ -755,7 +755,7 @@ runWith RunNodeArgs{..} encAddrNtN decAddrNtN LowLevelRunNodeArgs{..} =
version
llrnVersionDataNTN
( \versionData ->
NTN.initiatorAndResponder miniProtocolParams version versionData $
NTN.initiatorAndResponder llrnFeatureFlags miniProtocolParams version versionData $
ntnApps blockVersion
)
| (version, blockVersion) <- Map.toList llrnNodeToNodeVersions
Expand Down