cardano-node: Next try to fix

IntersectMBO · Jan 15, 2025 · 8b80f13 · 8b80f13
1 parent 4271be7
commit 8b80f13
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/cardano-node/src/Cardano/Node/Tracing/Tracers/LedgerMetrics.hs b/cardano-node/src/Cardano/Node/Tracing/Tracers/LedgerMetrics.hs
@@ -6,15 +6,14 @@
 {-# LANGUAGE RecordWildCards #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 
-
+{-# OPTIONS_GHC -Wno-redundant-constraints #-}
 
 module Cardano.Node.Tracing.Tracers.LedgerMetrics
   ( LedgerMetrics (..)
   , traceLedgerMetrics
   , startLedgerMetricsTracer
   ) where
 
-
 import           Cardano.Ledger.BaseTypes (StrictMaybe (..))
 import           Cardano.Logging hiding (traceWith)
 import           Cardano.Node.Queries (LedgerQueries (..), NodeKernelData (..), mapNodeKernelDataIO,
@@ -37,9 +36,7 @@ startLedgerMetricsTracer
    . IsLedger (LedgerState blk)
   => LedgerQueries blk
   => AF.HasHeader (Header blk)
-#if __GLASGOW_HASKELL__ >= 908
   => AF.HasHeader blk
-#endif
   => Tracer IO LedgerMetrics
   -> Int
   -> NodeKernelData blk