From 844509e0ae9906739638782b943aa6fc4d29e657 Mon Sep 17 00:00:00 2001
From: KtorZ <matthias.benkort@gmail.com>
Date: Tue, 23 Jul 2024 10:23:03 +0200
Subject: [PATCH] Patch 'StartLeadershipCheck' tracers for GHC >= 9.4.*

---
 .../Cardano/Node/Tracing/Tracers/StartLeadershipCheck.hs  | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/cardano-node/src/Cardano/Node/Tracing/Tracers/StartLeadershipCheck.hs b/cardano-node/src/Cardano/Node/Tracing/Tracers/StartLeadershipCheck.hs
index b3d5bb810a9..dfa5df41d25 100644
--- a/cardano-node/src/Cardano/Node/Tracing/Tracers/StartLeadershipCheck.hs
+++ b/cardano-node/src/Cardano/Node/Tracing/Tracers/StartLeadershipCheck.hs
@@ -51,9 +51,7 @@ data TraceStartLeadershipCheckPlus =
 forgeTracerTransform ::
   (  IsLedger (LedgerState blk)
   ,  LedgerQueries blk
-#if __GLASGOW_HASKELL__ >= 906
-  , AF.HasHeader blk
-#endif
+  ,  AF.HasHeader blk
   ,  AF.HasHeader (Header blk))
   => NodeKernelData blk
   -> Trace IO (ForgeTracerType blk)
@@ -92,11 +90,7 @@ nkQueryLedger f NodeKernel{getChainDB} =
   f <$> atomically (ChainDB.getCurrentLedger getChainDB)
 
 fragmentChainDensity ::
-#if __GLASGOW_HASKELL__ >= 906
   (AF.HasHeader blk, AF.HasHeader (Header blk))
-#else
-  AF.HasHeader (Header blk)
-#endif
   => AF.AnchoredFragment (Header blk) -> Rational
 fragmentChainDensity frag = calcDensity blockD slotD
   where