hlint: fix suggestions

IntersectMBO · May 6, 2024 · a528a74 · a528a74
1 parent ed4d80d
commit a528a74
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/cardano-node/src/Cardano/Tracing/OrphanInstances/Network.hs b/cardano-node/src/Cardano/Tracing/OrphanInstances/Network.hs
@@ -795,7 +795,7 @@ instance Show addr
   formatText a _ = pack (show a)
 
 instance Show ChurnCounters where
-  show (ChurnCounter a n) = List.intercalate " " ["ChurnCounters", show a, show n]
+  show (ChurnCounter a n) = List.unwords ["ChurnCounters", show a, show n]
 instance Transformable Text IO ChurnCounters where
   trTransformer = trStructuredText
 instance HasTextFormatter ChurnCounters where

diff --git a/cardano-node/src/Cardano/Tracing/OrphanInstances/Shelley.hs b/cardano-node/src/Cardano/Tracing/OrphanInstances/Shelley.hs
@@ -5,14 +5,12 @@
 {-# LANGUAGE EmptyCase #-}
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE GeneralisedNewtypeDeriving #-}
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE NamedFieldPuns #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE QuantifiedConstraints #-}
 {-# LANGUAGE ScopedTypeVariables #-}
-{-# LANGUAGE StandaloneDeriving #-}
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE TypeOperators #-}
 {-# LANGUAGE UndecidableInstances #-}
@@ -400,7 +398,7 @@ instance Ledger.EraPParams era => ToObject (Conway.ConwayGovPredFailure era) whe
     mconcat [ "kind" .= String "DisallowedProposalDuringBootstrap"
             , "proposal" .= proposal
             ]
-    
+
   toObject _ (Conway.DisallowedVotesDuringBootstrap votes) =
     mconcat [ "kind" .= String "DisallowedVotesDuringBootstrap"
             , "votes" .= votes