Retrigger GDD when the selection changes

IntersectMBO · Mar 27, 2024 · f990d41 · f990d41
1 parent b47c8c9
commit f990d41
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/ouroboros-consensus-diffusion/test/consensus-test/Test/Consensus/PeerSimulator/Run.hs b/ouroboros-consensus-diffusion/test/consensus-test/Test/Consensus/PeerSimulator/Run.hs
@@ -300,12 +300,17 @@ runPointSchedule schedulerConfig genesisTest tracer0 =
           = pure nullTracer
 
         gdd = updateLoEFragGenesis config (mkGDDTracerTestBlock tracer) getCandidates getHandles (readTVar (psrIdling resources))
+        -- We make GDD rerun every time the anchor or the blocks of the
+        -- selection change.
+        getCurrentChainWithAnchor = do
+          c <- getCurrentChain
+          return $ AF.anchorPoint c : map AF.blockPoint (AF.toOldestFirst c)
 
     stateTracer <- mkStateTracer
     BlockFetch.startBlockFetchLogic registry tracer chainDb fetchClientRegistry getCandidates
     for_ loEVar $ \ var ->
         void $ forkLinkedThread registry "LoE updater background" $
-          runGdd gdd var chainDb ((,) <$> getLatestSlots <*> readTVar (psrIdling resources))
+          runGdd gdd var chainDb ((,,) <$> getLatestSlots <*> readTVar (psrIdling resources) <*> getCurrentChainWithAnchor)
     runScheduler
       (Tracer $ traceWith tracer . TraceSchedulerEvent)
       stateTracer