cardano-node: Next try to fix

Author: jutaro

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