p2p-governor: implement PeerStateActions

'Ouroboros.Network.PeerSelection.Governor.PeerStateActions' implement `PeerStateActions` actions using connection manager.
IntersectMBO · Sep 14, 2020 · e7a5555 · e7a5555
1 parent 34ed214
commit e7a5555
Show file tree

Hide file tree

Showing 3 changed files with 789 additions and 0 deletions.
diff --git a/ouroboros-network-framework/src/Ouroboros/Network/Mux.hs b/ouroboros-network-framework/src/Ouroboros/Network/Mux.hs
@@ -19,6 +19,7 @@ module Ouroboros.Network.Mux
   , TokProtocolTemperature (..)
   , WithProtocolTemperature (..)
   , withoutProtocolTemperature
+  , WithSomeProtocolTemperature (..)
   , Bundle (..)
   , projectBundle
   , OuroborosBundle
@@ -150,6 +151,12 @@ withoutProtocolTemperature (WithWarm a)        = a
 withoutProtocolTemperature (WithEstablished a) = a
 
 
+data WithSomeProtocolTemperature a where
+    WithSomeProtocolTemperature :: WithProtocolTemperature pt a -> WithSomeProtocolTemperature a
+
+deriving instance Show a => Show (WithSomeProtocolTemperature a)
+
+
 -- | A bundle of 'HotApp', 'WarmApp' and 'EstablishedApp'.
 --
 data Bundle a =

diff --git a/ouroboros-network/ouroboros-network.cabal b/ouroboros-network/ouroboros-network.cabal
@@ -66,6 +66,7 @@ library
                        Ouroboros.Network.PeerSelection.KnownPeers
                        Ouroboros.Network.PeerSelection.RootPeersDNS
                        Ouroboros.Network.PeerSelection.Governor
+                       Ouroboros.Network.PeerSelection.Governor.PeerStateActions
                        Ouroboros.Network.Protocol.ChainSync.Client
                        Ouroboros.Network.Protocol.ChainSync.ClientPipelined
                        Ouroboros.Network.Protocol.ChainSync.Codec