remove - HLINT ignore "Fuse on/on"

Author: Cmdv

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

@@ -21,8 +21,6 @@ import Database.Esqueleto.Experimental (
   SqlBackend,
  )
 
-{- HLINT ignore "Fuse on/on" -}
-
 resolveStakeAddress :: MonadIO m => ByteString -> ReaderT SqlBackend m (Either LookupFail StakeAddressId)
 resolveStakeAddress addr = queryStakeAddress addr renderByteArray
 

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

@@ -42,8 +42,6 @@ import Database.Esqueleto.Experimental (
   (^.),
  )
 
-{- HLINT ignore "Fuse on/on" -}
-
 -- For any stake address which has seen a withdrawal, the sum of the withdrawals for that address
 -- should be less than or equal to the sum of the rewards for that address.
 validateRewardWithdrawals ::

cardano-db-sync/src/Cardano/DbSync/Era/Universal/Validate.hs

@@ -44,7 +44,6 @@ import Database.Esqueleto.Experimental (
  )
 import GHC.Err (error)
 
-{- HLINT ignore "Fuse on/on" -}
 {- HLINT ignore "Reduce duplication" -}
 
 validateEpochRewards ::

cardano-db-sync/src/Cardano/DbSync/OffChain/Query.hs

@@ -61,8 +61,6 @@ import Database.Esqueleto.Experimental (
  )
 import System.Random.Shuffle (shuffleM)
 
-{- HLINT ignore "Fuse on/on" -}
-
 ---------------------------------------------------------------------------------------------------------------------------------
 -- Query OffChain VoteData
 ---------------------------------------------------------------------------------------------------------------------------------

cardano-db-tool/src/Cardano/DbTool/Report/Balance.hs

@@ -38,7 +38,6 @@ import Database.Esqueleto.Experimental (
  )
 
 {- HLINT ignore "Redundant ^." -}
-{- HLINT ignore "Fuse on/on" -}
 
 reportBalance :: TxOutVariantType -> [Text] -> IO ()
 reportBalance txOutTableType saddr = do

cardano-db-tool/src/Cardano/DbTool/Report/StakeReward/History.hs

@@ -40,8 +40,6 @@ import Database.Esqueleto.Experimental (
  )
 import Text.Printf (printf)
 
-{- HLINT ignore "Fuse on/on" -}
-
 reportStakeRewardHistory :: Text -> IO ()
 reportStakeRewardHistory saddr = do
   xs <- runDbNoLoggingEnv (queryHistoryStakeRewards saddr)

cardano-db-tool/src/Cardano/DbTool/Report/StakeReward/Latest.hs

@@ -44,8 +44,6 @@ import Database.Esqueleto.Experimental (
  )
 import Text.Printf (printf)
 
-{- HLINT ignore "Fuse on/on" -}
-
 reportEpochStakeRewards :: Word64 -> [Text] -> IO ()
 reportEpochStakeRewards epochNum saddr = do
   xs <- catMaybes <$> runDbNoLoggingEnv (mapM (queryEpochStakeRewards epochNum) saddr)

cardano-db-tool/src/Cardano/DbTool/Report/Transactions.hs

@@ -51,7 +51,6 @@ import Database.Esqueleto.Experimental (
  )
 
 {- HLINT ignore "Redundant ^." -}
-{- HLINT ignore "Fuse on/on" -}
 
 reportTransactions :: TxOutVariantType -> [Text] -> IO ()
 reportTransactions txOutTableType addrs =

cardano-db-tool/src/Cardano/DbTool/Validate/TxAccounting.hs

@@ -43,8 +43,6 @@ import Database.Esqueleto.Experimental (
  )
 import qualified System.Random as Random
 
-{- HLINT ignore "Fuse on/on" -}
-
 validateTxAccounting :: TxOutVariantType -> IO ()
 validateTxAccounting getTxOutVariantType = do
   txIdRange <- runDbNoLoggingEnv queryTestTxIds

cardano-db/src/Cardano/Db/Operations/Query.hs

@@ -166,7 +166,6 @@ import Database.Persist.Class.PersistQuery (selectList)
 import Database.Persist.Types (SelectOpt (Asc))
 
 {- HLINT ignore "Redundant ^." -}
-{- HLINT ignore "Fuse on/on" -}
 {- HLINT ignore "Reduce duplication" -}
 
 -- If you squint, these Esqueleto queries almost look like SQL queries.