Fix hlint violations

Author: sgillespie

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

@@ -101,8 +101,8 @@ addValidityInterval ::
   SlotNo ->
   Core.Tx era ->
   Core.Tx era
-addValidityInterval slotNo tx =
-  set (bodyTxL @era . vldtTxBodyL @era) interval tx
+addValidityInterval slotNo =
+  set (bodyTxL @era . vldtTxBodyL @era) interval
   where
     interval = ValidityInterval Strict.SNothing (Strict.SJust slotNo)
 

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

@@ -1,7 +1,11 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RecordWildCards #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE TypeApplications #-}
+#if __GLASGOW_HASKELL__ >= 908
+{-# OPTIONS_GHC -Wno-x-partial #-}
+#endif
 
 module Test.Cardano.Db.Mock.Config (
   Config (..),
@@ -163,7 +167,7 @@ mkMutableDir :: FilePath -> FilePath
 mkMutableDir testLabel = rootTestDir </> "temp" </> testLabel
 
 mkConfigDir :: FilePath -> FilePath
-mkConfigDir config = "cardano-chain-gen" </> rootTestDir </> config
+mkConfigDir config = rootTestDir </> config
 
 fingerprintRoot :: FilePath
 fingerprintRoot = rootTestDir </> "fingerprint"
@@ -255,7 +259,7 @@ withConfig staticDir mutableDir cmdLineArgs config action = do
   genCfg <- runOrThrowIO $ runExceptT (readCardanoGenesisConfig config)
   let (pInfoDbSync, _) = mkProtocolInfoCardano genCfg []
   creds <- mkShelleyCredentials $ cfgDir </> "pools" </> "bulk1.creds"
-  let (pInfoForger, mkForgings) = mkProtocolInfoCardano genCfg [(head creds)]
+  let (pInfoForger, mkForgings) = mkProtocolInfoCardano genCfg [head creds]
   bracket
     (allocateRes mkForgings)
     (mapM finalize)
@@ -272,6 +276,8 @@ withConfig staticDir mutableDir cmdLineArgs config action = do
       -- _ <- throwIO $ userError "B"
       pure forgings'
 
+{-# ANN withConfig ("HLint: ignore Redundant pure" :: String) #-}
+
 mkSyncNodeConfig :: FilePath -> CommandLineArgs -> IO SyncNodeConfig
 mkSyncNodeConfig configFilePath cmdLineArgs =
   readSyncNodeConfig $ mkConfigFile configDir configFilename

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

@@ -3,7 +3,6 @@
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE RankNTypes #-}
 {-# LANGUAGE ScopedTypeVariables #-}
-{-# LANGUAGE TypeApplications #-}
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE NoImplicitPrelude #-}