GDD: use new AF.splitAtSlot

IntersectMBO · Aug 29, 2024 · ec55d14 · ec55d14
1 parent 3da919f
commit ec55d14
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/ouroboros-consensus/changelog.d/20240829_095937_alexander.esgen_gdd_splitAtSlot.md b/ouroboros-consensus/changelog.d/20240829_095937_alexander.esgen_gdd_splitAtSlot.md
@@ -0,0 +1,3 @@
+### Patch
+
+- Used new `AF.splitAtSlot` function in GDD.
diff --git a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Genesis/Governor.hs b/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Genesis/Governor.hs
@@ -402,8 +402,7 @@ densityDisconnect (GenesisWindow sgen) (SecurityParam k) states candidateSuffixe
 
     -- This is performance sensitive. We used to call @takeWhileOldest@ here,
     -- which would reconstruct much of the original fragment.
-    dropBeyondGenesisWindow =
-      AF.dropWhileNewest ((>= firstSlotAfterGenesisWindow) . blockSlot)
+    dropBeyondGenesisWindow = AF.splitAtSlot firstSlotAfterGenesisWindow
 
 -- Note [Chain disagreement]
 -- ~~~~~~~~~~~~~~~~~~~~~~~~~