Reset retry state when transition between LedgerStateJudgements

The bootstrap peers and public root peers should be different. Therefor the failure of one kind shouldn't automatically carry over to the other kind.
IntersectMBO · May 7, 2024 · 34fa46e · 34fa46e
1 parent 0be1b0b
commit 34fa46e
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/ouroboros-network/src/Ouroboros/Network/PeerSelection/Governor/Monitor.hs b/ouroboros-network/src/Ouroboros/Network/PeerSelection/Governor/Monitor.hs
@@ -604,6 +604,8 @@ monitorLedgerStateJudgement PeerSelectionActions{ readLedgerStateJudgement }
             , localRootPeers = LocalRootPeers.empty
             , hasOnlyBootstrapPeers = False
             , bootstrapPeersTimeout = Just (addTime governor_BOOTSTRAP_PEERS_TIMEOUT now)
+            , publicRootBackoffs = 0
+            , publicRootRetryTime = now
             })
         YoungEnough -> do
           let nonEstablishedBootstrapPeers =
@@ -612,7 +614,7 @@ monitorLedgerStateJudgement PeerSelectionActions{ readLedgerStateJudgement }
                 EstablishedPeers.toSet establishedPeers
                 Set.\\
                 (inProgressPromoteCold <> inProgressPromoteWarm)
-          return (\_ -> st
+          return (\now -> st
             { ledgerStateJudgement  = lsj
             , hasOnlyBootstrapPeers = False
             , bootstrapPeersTimeout = Nothing
@@ -624,6 +626,8 @@ monitorLedgerStateJudgement PeerSelectionActions{ readLedgerStateJudgement }
                 PublicRootPeers.difference
                   publicRootPeers
                   nonEstablishedBootstrapPeers
+            , publicRootBackoffs = 0
+            , publicRootRetryTime = now
             })
       return $ \now ->
         Decision {