Fix hlint

Author: newhoggy

src/HaskellWorks/Data/Simd/Comparison/Avx2.hs

@@ -20,7 +20,7 @@ import qualified HaskellWorks.Data.Simd.Internal.Foreign as F
 import qualified HaskellWorks.Data.Vector.AsVector8      as V
 import qualified HaskellWorks.Data.Vector.Storable       as DVS
 
-{-# ANN module ("HLint: ignore Redundant do"        :: String) #-}
+{- HLINT ignore "Redundant do"        -}
 
 class CmpEqWord8s a where
   type Target a

src/HaskellWorks/Data/Simd/Internal/Marshal.hs

@@ -7,7 +7,7 @@ import Data.Word
 import qualified Data.Vector.Storable as DVS
 import qualified Foreign.ForeignPtr   as F
 
-{-# ANN module ("HLint: ignore Redundant do"        :: String) #-}
+{- HLINT ignore "Redundant do"        -}
 
 unsafeToElemSizedForeignPtr :: Int -> DVS.Vector Word64 -> (F.ForeignPtr Word8, Int, Int)
 unsafeToElemSizedForeignPtr elemSize v = case DVS.unsafeCast v :: DVS.Vector Word8 of

src/HaskellWorks/Data/Simd/Logical/Avx2.hs

@@ -11,8 +11,8 @@ import qualified Foreign.Marshal.Unsafe                  as F
 import qualified Foreign.Ptr                             as F
 import qualified HaskellWorks.Data.Simd.Internal.Foreign as F
 
-{-# ANN module ("HLint: ignore Redundant do"        :: String) #-}
-{-# ANN module ("HLint: ignore Reduce duplication"  :: String) #-}
+{- HLINT ignore "Redundant do"        -}
+{- HLINT ignore "Reduce duplication"  -}
 
 class XorBits a where
   xorBits :: a -> a -> a

test/HaskellWorks/Data/Simd/ComparisonSpec.hs

@@ -19,9 +19,9 @@ import qualified HaskellWorks.Hedgehog.Gen               as G
 import qualified Hedgehog.Gen                            as G
 import qualified Hedgehog.Range                          as R
 
-{-# ANN module ("HLint: ignore Redundant do"        :: String) #-}
-{-# ANN module ("HLint: ignore Reduce duplication"  :: String) #-}
-{-# ANN module ("HLint: ignore Redundant bracket"   :: String) #-}
+{- HLINT ignore "Redundant do"        -}
+{- HLINT ignore "Redundant bracket"   -}
+{- HLINT ignore "Reduce duplication"  -}
 
 spec :: Spec
 spec = describe "HaskellWorks.Data.Simd.ComparisonSpec" $ do

test/HaskellWorks/Data/Simd/Internal/BroadwordSpec.hs

@@ -12,9 +12,9 @@ import HaskellWorks.Hspec.Hedgehog
 import Hedgehog
 import Test.Hspec
 
-{-# ANN module ("HLint: ignore Redundant do"        :: String) #-}
-{-# ANN module ("HLint: ignore Reduce duplication"  :: String) #-}
-{-# ANN module ("HLint: ignore Redundant bracket"   :: String) #-}
+{- HLINT ignore "Redundant do"        -}
+{- HLINT ignore "Redundant bracket"   -}
+{- HLINT ignore "Reduce duplication"  -}
 
 spec :: Spec
 spec = describe "HaskellWorks.Data.Simd.Internal.BroadwordSpec" $ do

test/HaskellWorks/Data/Simd/LogicalSpec.hs

@@ -15,9 +15,9 @@ import qualified HaskellWorks.Hedgehog.Gen            as G
 import qualified Hedgehog.Gen                         as G
 import qualified Hedgehog.Range                       as R
 
-{-# ANN module ("HLint: ignore Redundant do"        :: String) #-}
-{-# ANN module ("HLint: ignore Reduce duplication"  :: String) #-}
-{-# ANN module ("HLint: ignore Redundant bracket"   :: String) #-}
+{- HLINT ignore "Redundant do"        -}
+{- HLINT ignore "Redundant bracket"   -}
+{- HLINT ignore "Reduce duplication"  -}
 
 spec :: Spec
 spec = describe "HaskellWorks.Data.Simd.LogicalSpec" $ do