Patch 'StartLeadershipCheck' tracers for GHC >= 9.4.*

CardanoSolutions · Jul 23, 2024 · 844509e · 844509e
1 parent 2820a63
commit 844509e
Showing 1 changed file with 1 addition and 7 deletions.
diff --git 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