Skip to content

Commit 64aab9a

Browse files
committed
cardano-node: fixes:
- no warnings for ghc 9 redundant-constraints
1 parent 80b5a23 commit 64aab9a

File tree

2 files changed

+9
-0
lines changed

2 files changed

+9
-0
lines changed

cardano-node/src/Cardano/Node/Tracing/Tracers.hs

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -9,6 +9,9 @@
99
{-# LANGUAGE ScopedTypeVariables #-}
1010
{-# LANGUAGE TypeApplications #-}
1111

12+
{-# OPTIONS_GHC -fno-warn-redundant-constraints #-}
13+
-- needs different instances on ghc8 and on ghc9
14+
1215
module Cardano.Node.Tracing.Tracers
1316
( mkDispatchTracers
1417
) where

cardano-node/src/Cardano/Tracing/Tracers.hs

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -17,6 +17,9 @@
1717
{-# LANGUAGE UndecidableInstances #-}
1818

1919
{-# OPTIONS_GHC -Wno-orphans #-}
20+
{-# OPTIONS_GHC -fno-warn-redundant-constraints #-}
21+
-- needs different instances on ghc8 and on ghc9
22+
2023

2124
module Cardano.Tracing.Tracers
2225
( Tracers (..)
@@ -136,6 +139,9 @@ import qualified Control.Concurrent.STM as STM
136139
import Cardano.Protocol.TPraos.OCert (KESPeriod (..))
137140
import qualified Data.Aeson.KeyMap as KeyMap
138141

142+
{-# OPTIONS_GHC -Wno-redundant-constraints #-}
143+
-- needs different instances on ghc8 and on ghc9
144+
139145
{- HLINT ignore "Redundant bracket" -}
140146
{- HLINT ignore "Use record patterns" -}
141147

0 commit comments

Comments
 (0)