Use shorter cross-compiler friendly HLint annotations

Author: rvl

lib/core/src/Cardano/Byron/Codec/Cbor.hs

@@ -1,6 +1,3 @@
--- need this for {-# HLINT ... #-}; see https://github.com/ndmitchell/hlint#ignoring-hints
-{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
-
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE LambdaCase #-}
@@ -281,7 +278,7 @@ decodeTx = do
     _ <- decodeEmptyAttributes
     return (ins, outs)
 
-{-# HLINT ignore decodeTxIn "Use <$>" #-}
+{- HLINT ignore decodeTxIn "Use <$>" -}
 decodeTxIn :: CBOR.Decoder s TxIn
 decodeTxIn = do
     _ <- CBOR.decodeListLenCanonicalOf 2
@@ -301,7 +298,7 @@ decodeTxIn = do
         tx <- Hash <$> CBOR.decodeBytes
         TxIn tx <$> CBOR.decodeWord32
 
-{-# HLINT ignore decodeTxOut "Use <$>" #-}
+{- HLINT ignore decodeTxOut "Use <$>" -}
 decodeTxOut :: CBOR.Decoder s TxOut
 decodeTxOut = do
     _ <- CBOR.decodeListLenCanonicalOf 2

lib/core/src/Cardano/DB/Sqlite.hs

@@ -13,8 +13,7 @@
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE UndecidableInstances #-}
 
-{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
-{-# HLINT ignore "Redundant flip" #-}
+{- HLINT ignore "Redundant flip" -}
 
 -- |
 -- Copyright: © 2018-2020 IOHK

lib/core/src/Cardano/Pool/DB/Model.hs

@@ -451,7 +451,7 @@ mReadSettings = get #settings
 -- `const` isn't more readable than lambdas. Our language is based on
 -- lambda calculus and we shouldn't feel ashamed to use them. They also
 -- have different strictness properties.
-{-# HLINT ignore mPutSettings "Use const" #-}
+{- HLINT ignore mPutSettings "Use const" -}
 mPutSettings
     :: Settings
     -> ModelOp ()

lib/core/src/Cardano/Pool/DB/Sqlite.hs

@@ -14,8 +14,7 @@
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE UndecidableInstances #-}
 
-{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
-{-# HLINT ignore "Redundant flip" #-}
+{- HLINT ignore "Redundant flip" -}
 
 -- |
 -- Copyright: © 2018-2020 IOHK

lib/core/src/Cardano/Wallet/DB/Sqlite.hs

@@ -12,8 +12,7 @@
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE UndecidableInstances #-}
 
-{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
-{-# HLINT ignore "Redundant flip" #-}
+{- HLINT ignore "Redundant flip" -}
 
 -- |
 -- Copyright: © 2018-2020 IOHK

lib/core/test/unit/Cardano/Byron/Codec/CborSpec.hs

@@ -58,7 +58,7 @@ import qualified Data.ByteArray as BA
 import qualified Data.ByteString as BS
 import qualified Data.ByteString.Lazy as BL
 
-{-# ANN spec ("HLint: ignore Use head" :: String) #-}
+{- HLINT ignore spec "Use head" -}
 
 spec :: Spec
 spec = do

lib/core/test/unit/Cardano/Wallet/DB/StateMachine.hs

@@ -229,7 +229,7 @@ import qualified Test.QuickCheck as QC
 import qualified Test.StateMachine.Types as QSM
 import qualified Test.StateMachine.Types.Rank2 as Rank2
 
-{-# ANN module ("HLint: ignore Unused LANGUAGE pragma" :: String) #-}
+{- HLINT ignore "Unused LANGUAGE pragma" -}
 
 {-------------------------------------------------------------------------------
   Mock implementation
@@ -569,7 +569,7 @@ lockstep m@(Model _ ws) c (At resp) = Event
   Generator
 -------------------------------------------------------------------------------}
 
-{-# ANN generator ("HLint: ignore Use ++" :: String) #-}
+{- HLINT ignore generator "Use ++" -}
 generator
     :: forall s. (Arbitrary (Wallet s), GenState s)
     => Model s Symbolic

lib/core/test/unit/Cardano/Wallet/Primitive/CoinSelectionSpec.hs

@@ -84,7 +84,7 @@ import qualified Data.Map.Strict as Map
 import qualified Data.Set as Set
 import qualified Test.QuickCheck.Monadic as QC
 
-{-# ANN module ("HLint: ignore Use <$>" :: String) #-}
+{- HLINT ignore "Use <$>" -}
 
 spec :: Spec
 spec = do

lib/jormungandr/src/Cardano/Wallet/Jormungandr/Binary.hs

@@ -197,7 +197,7 @@ maxNumberOfOutputs = 254
 -------------------------------------------------------------------------------}
 
 -- Do-notation is favoured over applicative syntax for readability:
-{-# ANN module ("HLint: ignore Use <$>" :: String) #-}
+{- HLINT ignore "Use <$>" -}
 
 data BlockHeader = BlockHeader
     { version :: Word16

lib/jormungandr/test/integration/Cardano/Wallet/Jormungandr/NetworkSpec.hs

@@ -129,7 +129,7 @@ import qualified Cardano.Wallet.Jormungandr.Api.Client as Jormungandr
 import qualified Data.ByteString as BS
 import qualified Data.ByteString.Char8 as B8
 
-{-# ANN spec ("HLint: ignore Use head" :: String) #-}
+{- HLINT ignore spec "Use head" -}
 
 spec :: Spec
 spec = do