Remove redundant GHC 8.8 CPP conditional

core/src/Streamly/Internal/Data/Array/Stream/Foreign.hs

@@ -54,9 +54,6 @@ import Data.Bifunctor (second)
 import Control.Exception (assert)
 import Control.Monad.Catch (MonadThrow, throwM)
 import Control.Monad.IO.Class (MonadIO(..))
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup (Semigroup(..))
-#endif
 import Data.Word (Word8)
 import Streamly.Internal.Data.Unboxed (Unboxed, peekWith, sizeOf)
 import Fusion.Plugin.Types (Fuse(..))

core/src/Streamly/Internal/Data/Array/Unboxed/Mut/Type.hs

@@ -219,9 +219,6 @@ import Control.DeepSeq (NFData(..), NFData1(..))
 import Control.Monad (when, void)
 import Control.Monad.IO.Class (MonadIO(..))
 import Data.Bits (shiftR, (.|.), (.&.))
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup (Semigroup(..))
-#endif
 import Data.Word (Word8)
 import Foreign.C.Types (CSize(..), CInt(..))
 import Foreign.Ptr (plusPtr, minusPtr, nullPtr)

core/src/Streamly/Internal/Data/Array/Unboxed/Type.hs

@@ -103,10 +103,6 @@ import qualified GHC.Exts as Exts
 
 import Streamly.Internal.System.IO (unsafeInlineIO, defaultChunkSize)
 
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup (Semigroup(..))
-#endif
-
 --
 -- $setup
 -- >>> :m

core/src/Streamly/Internal/Data/Fold/Tee.hs

@@ -15,9 +15,6 @@ module Streamly.Internal.Data.Fold.Tee
 where
 
 import Control.Applicative (liftA2)
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup (Semigroup(..))
-#endif
 import Streamly.Internal.Data.Fold.Type (Fold)
 
 import qualified Streamly.Internal.Data.Fold.Type as Fold

core/src/Streamly/Internal/Data/List.hs

@@ -66,9 +66,6 @@ import Control.DeepSeq (NFData(..))
 import Control.DeepSeq (NFData1(..))
 import Data.Functor.Identity (Identity, runIdentity)
 import GHC.Exts (IsList(..), IsString(..))
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup (Semigroup(..))
-#endif
 import Streamly.Internal.Data.Stream.Type (Stream)
 import Streamly.Internal.Data.Stream.Zip (ZipStream(..))
 

core/src/Streamly/Internal/Data/Pipe/Type.hs

@@ -22,9 +22,6 @@ where
 import Control.Arrow (Arrow(..))
 import Control.Category (Category(..))
 import Data.Maybe (isJust)
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup (Semigroup(..))
-#endif
 import Prelude hiding (zipWith, map, id, unzip, null)
 import Streamly.Internal.Data.Tuple.Strict (Tuple'(..), Tuple3'(..))
 

core/src/Streamly/Internal/Data/Stream/Type.hs

@@ -51,9 +51,6 @@ import Data.Foldable (Foldable(foldl'), fold)
 import Data.Functor.Identity (Identity(..), runIdentity)
 import Data.Maybe (fromMaybe)
 import Data.Semigroup (Endo(..))
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup (Semigroup(..))
-#endif
 import GHC.Exts (IsList(..), IsString(..), oneShot)
 import Streamly.Internal.BaseCompat ((#.))
 import Streamly.Internal.Data.Maybe.Strict (Maybe'(..), toMaybe)

src/Streamly/Internal/Data/Stream/Ahead.hs

@@ -42,9 +42,6 @@ import Control.Monad.Trans.Class (MonadTrans(lift))
 import Data.Heap (Heap, Entry(..))
 import Data.IORef (IORef, readIORef, atomicModifyIORef, writeIORef)
 import Data.Maybe (fromJust)
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup (Semigroup(..))
-#endif
 import GHC.Exts (inline)
 
 import qualified Data.Heap as H

src/Streamly/Internal/Data/Stream/IsStream/Async.hs

@@ -50,9 +50,6 @@ import Control.Monad.Trans.Class (MonadTrans(lift))
 import Data.Concurrent.Queue.MichaelScott (LinkedQueue, newQ, nullQ, tryPopR, pushL)
 import Data.IORef (IORef, newIORef, readIORef)
 import Data.Maybe (fromJust)
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup (Semigroup(..))
-#endif
 
 import Prelude hiding (map)
 import qualified Data.Set as S

src/Streamly/Internal/Data/Stream/IsStream/Parallel.hs

@@ -62,9 +62,6 @@ import Control.Monad.Trans.Class (MonadTrans(lift))
 import Data.Functor (void)
 import Data.IORef (readIORef, writeIORef)
 import Data.Maybe (fromJust, isNothing)
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup (Semigroup(..))
-#endif
 
 import Streamly.Data.Fold (Fold)
 import Streamly.Internal.Control.Concurrent (MonadAsync)

src/Streamly/Internal/Data/Stream/Serial.hs

@@ -34,9 +34,6 @@ module Streamly.Internal.Data.Stream.Serial
     )
 where
 
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup (Semigroup(..))
-#endif
 import GHC.Exts (IsList(..))
 import Streamly.Data.Stream (Stream)
 

src/Streamly/Internal/Data/Stream/WSerial.hs

@@ -38,9 +38,6 @@ import Data.Foldable (Foldable(foldl'), fold)
 import Data.Functor.Identity (Identity(..), runIdentity)
 import Data.Maybe (fromMaybe)
 import Data.Semigroup (Endo(..))
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup (Semigroup(..))
-#endif
 import GHC.Exts (IsList(..), IsString(..), oneShot)
 import Text.Read
        ( Lexeme(Ident), lexP, parens, prec, readPrec, readListPrec

src/Streamly/Internal/Data/Stream/ZipAsync.hs

@@ -21,9 +21,6 @@ module Streamly.Internal.Data.Stream.ZipAsync
     )
 where
 
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup (Semigroup(..))
-#endif
 import Streamly.Internal.Control.Concurrent (MonadAsync)
 import Streamly.Internal.Data.Stream.StreamK.Type (Stream)
 

test/Streamly/Test/Data/Stream/Async.hs

@@ -16,9 +16,6 @@ import Control.Exception (Exception, try)
 import Control.Monad (replicateM)
 import Control.Monad.Catch (throwM)
 import Data.List (sort)
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup ((<>))
-#endif
 import Data.Word (Word8)
 import Streamly.Data.Stream (Stream)
 import Test.Hspec.QuickCheck

test/Streamly/Test/Prelude/Ahead.hs

@@ -9,9 +9,6 @@
 
 module Streamly.Test.Prelude.Ahead (main) where
 
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup ((<>))
-#endif
 import Test.QuickCheck (Property)
 import Test.Hspec.QuickCheck
 import Test.QuickCheck.Monadic (monadicIO, run)

test/Streamly/Test/Prelude/Async.hs

@@ -11,9 +11,6 @@ module Streamly.Test.Prelude.Async (main) where
 
 import Control.Concurrent (threadDelay)
 import Data.List (sort)
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup ((<>))
-#endif
 import Test.Hspec.QuickCheck
 import Test.QuickCheck (Property, withMaxSuccess)
 import Test.QuickCheck.Monadic (monadicIO, run)

test/Streamly/Test/Prelude/Serial.hs

@@ -17,9 +17,6 @@ import Data.Int (Int64)
 import Data.List (sort, group, intercalate)
 import Data.Maybe ( isJust, fromJust )
 import Data.Word (Word8)
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup ((<>))
-#endif
 import Data.Semigroup (Sum(..), getSum)
 import Streamly.Internal.Data.Unboxed (Unboxed)
 import Test.Hspec.QuickCheck

test/Streamly/Test/Prelude/WSerial.hs

@@ -10,9 +10,6 @@
 module Streamly.Test.Prelude.WSerial (main) where
 
 import Data.List (sort)
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup ((<>))
-#endif
 import Test.QuickCheck (Property, forAll)
 import Test.Hspec.QuickCheck
 import Test.QuickCheck.Monadic (monadicIO, run)

test/Streamly/Test/Prelude/ZipSerial.hs

@@ -9,9 +9,6 @@
 
 module Streamly.Test.Prelude.ZipSerial (main) where
 
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup ((<>))
-#endif
 import Test.Hspec.QuickCheck
 import Test.Hspec as H
 

test/lib/Streamly/Test/Common.hs

@@ -17,9 +17,6 @@ module Streamly.Test.Common
 import Control.Monad (when)
 import Control.Monad.IO.Class (MonadIO(..))
 import Data.List ((\\))
-#if __GLASGOW_HASKELL__ < 808
-import Data.Semigroup ((<>))
-#endif
 import Test.QuickCheck (Property, Gen, choose, counterexample)
 import Test.QuickCheck.Monadic (PropertyM, assert, monitor, monadicIO)