ouroboros-network: renamed peerStateToCounters

Using `peerSelectionStateToCounters` now.
IntersectMBO · Apr 10, 2024 · 1451f26 · 1451f26
1 parent 8804a2c
commit 1451f26
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 12 deletions.
diff --git a/ouroboros-network/src/Ouroboros/Network/PeerSelection/Governor.hs b/ouroboros-network/src/Ouroboros/Network/PeerSelection/Governor.hs
@@ -562,7 +562,7 @@ peerSelectionGovernorLoop tracer
 
       let Decision { decisionTrace, decisionJobs, decisionState } =
             timedDecision now
-          !newCounters = peerStateToCounters decisionState
+          !newCounters = peerSelectionStateToCounters decisionState
 
           !outboundConnectionsState =
             if activePeers st

diff --git a/ouroboros-network/src/Ouroboros/Network/PeerSelection/Governor/Types.hs b/ouroboros-network/src/Ouroboros/Network/PeerSelection/Governor/Types.hs
@@ -39,7 +39,7 @@ module Ouroboros.Network.PeerSelection.Governor.Types
   , Completion (..)
   , PeerSelectionCounters (.., PeerSelectionCountersHWC, numberOfColdPeers, numberOfWarmPeers, numberOfHotPeers, numberOfColdBigLedgerPeers, numberOfWarmBigLedgerPeers, numberOfHotBigLedgerPeers, numberOfColdLocalRootPeers, numberOfWarmLocalRootPeers, numberOfHotLocalRootPeers, localRootsHWC)
   , emptyPeerSelectionCounters
-  , peerStateToCounters
+  , peerSelectionStateToCounters
     -- * Peer Sharing Auxiliary data type
   , PeerSharingResult (..)
     -- * Traces
@@ -760,16 +760,20 @@ peerSelectionCountersHWC PeerSelectionCounters {..} =
     }
 
 
-peerStateToCounters :: Ord peeraddr => PeerSelectionState peeraddr peerconn -> PeerSelectionCounters
-peerStateToCounters PeerSelectionState { knownPeers,
-                                         establishedPeers,
-                                         activePeers,
-                                         publicRootPeers,
-                                         localRootPeers,
-                                         inProgressPromoteCold,
-                                         inProgressPromoteWarm,
-                                         inProgressDemoteWarm,
-                                         inProgressDemoteHot } =
+peerSelectionStateToCounters :: Ord peeraddr => PeerSelectionState peeraddr peerconn -> PeerSelectionCounters
+peerSelectionStateToCounters
+    PeerSelectionState {
+        knownPeers,
+        establishedPeers,
+        activePeers,
+        publicRootPeers,
+        localRootPeers,
+        inProgressPromoteCold,
+        inProgressPromoteWarm,
+        inProgressDemoteWarm,
+        inProgressDemoteHot
+      }
+    =
     PeerSelectionCounters {
       numberOfRootPeers                          = LocalRootPeers.size localRootPeers
                                                  + PublicRootPeers.size publicRootPeers,