Fix Hlint

Author: hamishmack

cardano-chain-gen/src/Cardano/Mock/Forging/Tx/Alonzo/ScriptsExamples.hs

@@ -4,7 +4,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE TypeApplications #-}
-{-# LANGUAGE TypeOperators #-}
 
 module Cardano.Mock.Forging.Tx.Alonzo.ScriptsExamples (
   alwaysSucceedsPlutusBinary,

cardano-chain-gen/src/Cardano/Mock/Forging/Tx/Babbage.hs

@@ -6,7 +6,6 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE TupleSections #-}
 {-# LANGUAGE TypeApplications #-}
-{-# LANGUAGE TypeOperators #-}
 #if __GLASGOW_HASKELL__ >= 908
 {-# OPTIONS_GHC -Wno-x-partial #-}
 #endif
@@ -381,7 +380,7 @@ mkSimpleDCertTx consDert st = do
 mkDummyRegisterTx :: Int -> Int -> Either ForgingError (AlonzoTx BabbageEra)
 mkDummyRegisterTx n m =
   mkDCertTx
-    (ShelleyTxCertDelegCert . ShelleyRegCert . KeyHashObj . KeyHash . mkDummyHash (Proxy @(ADDRHASH)) . fromIntegral <$> [n, m])
+    (ShelleyTxCertDelegCert . ShelleyRegCert . KeyHashObj . KeyHash . mkDummyHash (Proxy @ADDRHASH) . fromIntegral <$> [n, m])
     (Withdrawals mempty)
     Nothing
 

cardano-chain-gen/src/Cardano/Mock/Forging/Tx/Conway.hs

@@ -7,11 +7,10 @@
 {-# LANGUAGE TupleSections #-}
 {-# LANGUAGE TypeApplications #-}
 {-# LANGUAGE TypeFamilies #-}
-{-# LANGUAGE TypeOperators #-}
 
-#if __GLASGOW_HASKELL__ >= 908
-{-# OPTIONS_GHC -Wno-x-partial #-}
-#endif
+
+
+
 
 module Cardano.Mock.Forging.Tx.Conway (
   ConwayLedgerState,
@@ -921,7 +920,7 @@ allPoolStakeCert' st = map (mkRegTxCert SNothing) (getCreds st)
 
     stakePoolParams =
       LedgerState.psStakePoolParams
-        . (\x -> x ^. certPStateL)
+        . (^. certPStateL)
         . LedgerState.lsCertState
         . LedgerState.esLState
         . LedgerState.nesEs

cardano-chain-gen/src/Cardano/Mock/Forging/Tx/Generic.hs

@@ -4,7 +4,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE TypeApplications #-}
-{-# LANGUAGE TypeOperators #-}
 
 module Cardano.Mock.Forging.Tx.Generic (
   allPoolStakeCert,
@@ -127,7 +126,7 @@ resolveStakeCreds ::
   EraCertState era =>
   StakeIndex ->
   LedgerState (ShelleyBlock p era) ->
-  Either ForgingError (StakeCredential)
+  Either ForgingError StakeCredential
 resolveStakeCreds indx st = case indx of
   StakeIndex n -> toEither $ fst <$> (rewardAccs !? n)
   StakeAddress addr -> Right addr
@@ -304,14 +303,14 @@ unregisteredDRepIds =
 
 createStakeCredentials :: Int -> [StakeCredential]
 createStakeCredentials n =
-  fmap (KeyHashObj . KeyHash . mkDummyHash (Proxy @(ADDRHASH))) [1 .. n]
+  fmap (KeyHashObj . KeyHash . mkDummyHash (Proxy @ADDRHASH)) [1 .. n]
 
 createPaymentCredentials :: Int -> [PaymentCredential]
 createPaymentCredentials n =
-  fmap (KeyHashObj . KeyHash . mkDummyHash (Proxy @(ADDRHASH))) [1 .. n]
+  fmap (KeyHashObj . KeyHash . mkDummyHash (Proxy @ADDRHASH)) [1 .. n]
 
 mkDummyScriptHash :: Int -> ScriptHash
-mkDummyScriptHash n = ScriptHash $ mkDummyHash (Proxy @(ADDRHASH)) n
+mkDummyScriptHash n = ScriptHash $ mkDummyHash (Proxy @ADDRHASH) n
 
 {-# ANN module ("HLint: ignore Avoid restricted function" :: Text) #-}
 

cardano-chain-gen/src/Cardano/Mock/Forging/Tx/Shelley.hs

@@ -1,6 +1,5 @@
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE GADTs #-}
-{-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# OPTIONS_GHC -Wno-orphans #-}
 

cardano-chain-gen/src/Cardano/Mock/Forging/Types.hs

@@ -86,7 +86,7 @@ data UTxOIndex era
 
 data StakeIndex
   = StakeIndex !Int
-  | StakeAddress !(StakeCredential)
+  | StakeAddress !StakeCredential
   | StakeIndexNew !Int
   | StakeIndexScript !Bool
   | StakeIndexPoolLeader !PoolIndex

cardano-chain-gen/test/Test/Cardano/Db/Mock/Unit/Conway/Governance.hs

@@ -2,7 +2,6 @@
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE NumericUnderscores #-}
 {-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE TypeApplications #-}
 
 #if __GLASGOW_HASKELL__ >= 908
 {-# OPTIONS_GHC -Wno-x-partial #-}

cardano-chain-gen/test/Test/Cardano/Db/Mock/Validate.hs

@@ -4,7 +4,6 @@
 {-# LANGUAGE NumericUnderscores #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE ScopedTypeVariables #-}
-{-# LANGUAGE TypeOperators #-}
 
 module Test.Cardano.Db.Mock.Validate (
   assertBlocksCount,

cardano-db-sync/src/Cardano/DbSync/Config/Node.hs

@@ -114,40 +114,40 @@ instance FromJSON NodeConfig where
       parseShelleyHardForkEpoch o =
         asum
           [ CardanoTriggerHardForkAtEpoch <$> o .: "TestShelleyHardForkAtEpoch"
-          , pure $ CardanoTriggerHardForkAtDefaultVersion
+          , pure CardanoTriggerHardForkAtDefaultVersion
           ]
 
       parseAllegraHardForkEpoch :: Object -> Parser (CardanoHardForkTrigger (ShelleyBlock (TPraos StandardCrypto) AllegraEra))
       parseAllegraHardForkEpoch o =
         asum
           [ CardanoTriggerHardForkAtEpoch <$> o .: "TestAllegraHardForkAtEpoch"
-          , pure $ CardanoTriggerHardForkAtDefaultVersion
+          , pure CardanoTriggerHardForkAtDefaultVersion
           ]
 
       parseMaryHardForkEpoch :: Object -> Parser (CardanoHardForkTrigger (ShelleyBlock (TPraos StandardCrypto) MaryEra))
       parseMaryHardForkEpoch o =
         asum
           [ CardanoTriggerHardForkAtEpoch <$> o .: "TestMaryHardForkAtEpoch"
-          , pure $ CardanoTriggerHardForkAtDefaultVersion
+          , pure CardanoTriggerHardForkAtDefaultVersion
           ]
 
       parseAlonzoHardForkEpoch :: Object -> Parser (CardanoHardForkTrigger (ShelleyBlock (TPraos StandardCrypto) AlonzoEra))
       parseAlonzoHardForkEpoch o =
         asum
           [ CardanoTriggerHardForkAtEpoch <$> o .: "TestAlonzoHardForkAtEpoch"
-          , pure $ CardanoTriggerHardForkAtDefaultVersion
+          , pure CardanoTriggerHardForkAtDefaultVersion
           ]
 
       parseBabbageHardForkEpoch :: Object -> Parser (CardanoHardForkTrigger (ShelleyBlock (Praos StandardCrypto) BabbageEra))
       parseBabbageHardForkEpoch o =
         asum
           [ CardanoTriggerHardForkAtEpoch <$> o .: "TestBabbageHardForkAtEpoch"
-          , pure $ CardanoTriggerHardForkAtDefaultVersion
+          , pure CardanoTriggerHardForkAtDefaultVersion
           ]
 
       parseConwayHardForkEpoch :: Object -> Parser (CardanoHardForkTrigger (ShelleyBlock (Praos StandardCrypto) ConwayEra))
       parseConwayHardForkEpoch o =
         asum
           [ CardanoTriggerHardForkAtEpoch <$> o .: "TestConwayHardForkAtEpoch"
-          , pure $ CardanoTriggerHardForkAtDefaultVersion
+          , pure CardanoTriggerHardForkAtDefaultVersion
           ]

cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Generic/Block.hs

@@ -6,7 +6,6 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE TypeApplications #-}
 {-# LANGUAGE TypeFamilies #-}
-{-# LANGUAGE TypeOperators #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
 module Cardano.DbSync.Era.Shelley.Generic.Block (

cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Generic/ParamProposal.hs

@@ -2,7 +2,6 @@
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE TypeFamilies #-}
-{-# LANGUAGE TypeOperators #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
 module Cardano.DbSync.Era.Shelley.Generic.ParamProposal (

cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Generic/StakeDist.hs

@@ -6,7 +6,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE TupleSections #-}
-{-# LANGUAGE TypeOperators #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
 module Cardano.DbSync.Era.Shelley.Generic.StakeDist (

cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Generic/Util.hs

@@ -65,7 +65,7 @@ annotateStakingCred = Shelley.RewardAccount
 coinToDbLovelace :: Coin -> DbLovelace
 coinToDbLovelace = DbLovelace . fromIntegral . unCoin
 
-getPaymentCred :: Ledger.Addr -> Maybe (Ledger.PaymentCredential)
+getPaymentCred :: Ledger.Addr -> Maybe Ledger.PaymentCredential
 getPaymentCred addr =
   case addr of
     Ledger.Addr _nw pcred _sref -> Just pcred

cardano-db-sync/src/Cardano/DbSync/Ledger/State.hs

@@ -10,7 +10,6 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE TypeApplications #-}
 {-# LANGUAGE TypeFamilies #-}
-{-# LANGUAGE TypeOperators #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
 #if __GLASGOW_HASKELL__ >= 908

cardano-db-sync/src/Cardano/DbSync/Sync.hs

@@ -7,6 +7,7 @@
 {-# LANGUAGE TypeApplications #-}
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE LambdaCase #-}
 
 module Cardano.DbSync.Sync (
   ConfigFile (..),
@@ -136,8 +137,7 @@ runSyncNodeClient metricsSetters syncEnv iomgr trce tc (SocketPath socketPath) =
       SubscriptionParams
         { spAddress = Snocket.localAddressFromPath socketPath
         , spReconnectionDelay = Nothing
-        , spCompleteCb = \r ->
-            case r of
+        , spCompleteCb = \case
               Left e ->
                 case fromException e of
                   Just AsyncCancelled -> Abort

cardano-db-sync/src/Cardano/DbSync/Util/Bech32.hs

@@ -1,7 +1,6 @@
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE StandaloneDeriving #-}
 
 module Cardano.DbSync.Util.Bech32 (
   serialiseToBech32,