Fix some warnings for GHC 8.0, 8.4 up, 9.4

Author: andreasabel

Control/Monad/Primitive.hs

@@ -33,7 +33,9 @@ import GHC.Exts   ( State#, RealWorld, noDuplicate#, touch#
 import GHC.IO     ( IO(..) )
 import GHC.ST     ( ST(..) )
 
+#if __GLASGOW_HASKELL__ >= 802
 import qualified Control.Monad.ST.Lazy as L
+#endif
 
 import Control.Monad.Trans.Class (lift)
 

Data/Primitive/Array.hs

@@ -762,7 +762,7 @@ instance Semigroup (Array a) where
 instance Monoid (Array a) where
   mempty = empty
 #if !(MIN_VERSION_base(4,11,0))
-  mappend = (<|>)
+  mappend = (<>)
 #endif
   mconcat l = createArray sz (die "mconcat" "impossible") $ \ma ->
     let go !_  [    ] = return ()

Data/Primitive/ByteArray.hs

@@ -70,11 +70,15 @@ import Control.Monad.Primitive
 import Control.Monad.ST
 import Data.Primitive.Types
 
+#if MIN_VERSION_base(4,10,0)
 import qualified GHC.ST as GHCST
+#endif
 
 import Foreign.C.Types
 import Data.Word ( Word8 )
+#if __GLASGOW_HASKELL__ >= 802
 import qualified GHC.Exts as Exts
+#endif
 import GHC.Exts hiding (setByteArray#)
 
 #if __GLASGOW_HASKELL__ < 804

Data/Primitive/PrimArray.hs

@@ -110,18 +110,24 @@ module Data.Primitive.PrimArray
 import GHC.Exts
 import Data.Primitive.Types
 import Data.Primitive.ByteArray (ByteArray(..))
+#if !MIN_VERSION_base(4,11,0)
 import Data.Monoid ((<>))
+#endif
 import Control.Applicative
 import Control.DeepSeq
 import Control.Monad.Primitive
 import Control.Monad.ST
 import qualified Data.List as L
 import qualified Data.Primitive.ByteArray as PB
 import qualified Data.Primitive.Types as PT
+#if MIN_VERSION_base(4,10,0)
 import qualified GHC.ST as GHCST
+#endif
 import Language.Haskell.TH.Syntax (Lift (..))
 
+#if !MIN_VERSION_base(4,11,0)
 import Data.Semigroup (Semigroup)
+#endif
 import qualified Data.Semigroup as SG
 
 #if __GLASGOW_HASKELL__ >= 802

Data/Primitive/SmallArray.hs

@@ -80,9 +80,6 @@ import Control.Monad.Zip
 import Data.Data
 import Data.Foldable as Foldable
 import Data.Functor.Identity
-#if !(MIN_VERSION_base(4,10,0))
-import Data.Monoid
-#endif
 import qualified GHC.ST as GHCST
 import qualified Data.Semigroup as Sem
 import Text.ParserCombinators.ReadP
@@ -798,7 +795,7 @@ instance Sem.Semigroup (SmallArray a) where
 instance Monoid (SmallArray a) where
   mempty = empty
 #if !(MIN_VERSION_base(4,11,0))
-  mappend = (<|>)
+  mappend = (Sem.<>)
 #endif
   mconcat l = createSmallArray n (die "mconcat" "impossible") $ \ma ->
     let go !_  [    ] = return ()

cabal.project

@@ -2,6 +2,6 @@ packages: primitive.cabal
 
 
 package primitive
-  ghc-options: -Wall
+  ghc-options: -Wall -Wcompat
 
 allow-newer: tagged-0.8.6.1:template-haskell

primitive.cabal

@@ -31,6 +31,8 @@ Tested-With:
 
 Library
   Default-Language: Haskell2010
+  Default-Extensions:
+        TypeOperators
   Other-Extensions:
         BangPatterns, CPP, DeriveDataTypeable,
         MagicHash, TypeFamilies, UnboxedTuples, UnliftedFFITypes