Remove unused updateLoEFragStall

ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Genesis/Governor.hs

@@ -37,7 +37,6 @@ module Ouroboros.Consensus.Genesis.Governor (
   , runGdd
   , sharedCandidatePrefix
   , updateLoEFragGenesis
-  , updateLoEFragStall
   , updateLoEFragUnconditional
   ) where
 
@@ -128,26 +127,6 @@ sharedCandidatePrefix curChain candidates =
       -- 'Map' via 'mapMaybe'.
       Map.mapMaybe splitAfterImmutableTip candidates
 
--- | This version of the LoE implements part of the intended Genesis approach.
--- The fragment is set to the prefix of all candidates, ranging from the
--- immutable tip to the earliest intersection of all peers.
---
--- Using this will cause ChainSel to stall indefinitely, or until a peer
--- disconnects for unrelated reasons.
--- In the future, the Genesis Density Disconnect Governor variant will extend
--- this with an analysis that will always result in disconnections from peers
--- to ensure the selection can advance.
-updateLoEFragStall ::
-  MonadSTM m =>
-  GetHeader blk =>
-  STM m (Map peer (AnchoredFragment (Header blk))) ->
-  UpdateLoEFrag m blk
-updateLoEFragStall getCandidates =
-  UpdateLoEFrag $ \ curChain _ ->
-    atomically $ do
-      candidates <- getCandidates
-      pure (fst (sharedCandidatePrefix curChain candidates))
-
 -- | A never ending computation that runs the GDD governor whenever
 -- the STM action @getTrigger@ changes, writing the LoE fragment
 -- computed by @loEUpdater@ to @varLoEFrag@, and then triggering