mirror of
https://github.com/composewell/streamly.git
synced 2024-08-16 23:10:36 +03:00
Remove redundant GHC 8.8 CPP conditional
This commit is contained in:
parent
3a90efbd87
commit
d84f82d973
@ -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(..))
|
||||
|
@ -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)
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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(..))
|
||||
|
||||
|
@ -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'(..))
|
||||
|
||||
|
@ -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)
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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)
|
||||
|
@ -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)
|
||||
|
||||
|
@ -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
|
||||
|
@ -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)
|
||||
|
||||
|
@ -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
|
||||
|
@ -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)
|
||||
|
@ -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)
|
||||
|
@ -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
|
||||
|
@ -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)
|
||||
|
@ -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
|
||||
|
||||
|
@ -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)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user