mirror of
https://github.com/composewell/streamly.git
synced 2024-09-11 19:47:10 +03:00
remove deepseq
This commit is contained in:
parent
3bee2c9e79
commit
660dd9d6e3
@ -50,15 +50,6 @@ instance (MonadState s m CONSTRAINT) => MonadState s (STREAM m) where { \
|
||||
-- well, because they do not get inlined. Need to add INLINE in Ord class in
|
||||
-- base?
|
||||
|
||||
#if MIN_VERSION_deepseq(1,4,3)
|
||||
#define NFDATA1_INSTANCE(STREAM) \
|
||||
instance NFData1 (STREAM Identity) where { \
|
||||
{-# INLINE liftRnf #-}; \
|
||||
liftRnf r = runIdentity . P.foldl' (\_ x -> r x) () }
|
||||
#else
|
||||
#define NFDATA1_INSTANCE(STREAM)
|
||||
#endif
|
||||
|
||||
#define LIST_INSTANCES(STREAM) \
|
||||
instance IsList (STREAM Identity a) where { \
|
||||
type (Item (STREAM Identity a)) = a; \
|
||||
@ -101,9 +92,6 @@ instance (a ~ Char) => IsString (STREAM Identity a) where { \
|
||||
{-# INLINE fromString #-}; \
|
||||
fromString = P.fromList }; \
|
||||
\
|
||||
instance NFData a => NFData (STREAM Identity a) where { \
|
||||
{-# INLINE rnf #-}; \
|
||||
rnf = runIdentity . P.foldl' (\_ x -> rnf x) () }; \
|
||||
|
||||
-------------------------------------------------------------------------------
|
||||
-- Foldable
|
||||
|
@ -50,10 +50,6 @@ module Streamly.Internal.Data.Stream.Serial
|
||||
where
|
||||
|
||||
import Control.Applicative (liftA2)
|
||||
import Control.DeepSeq (NFData(..))
|
||||
#if MIN_VERSION_deepseq(1,4,3)
|
||||
import Control.DeepSeq (NFData1(..))
|
||||
#endif
|
||||
import Control.Monad.Base (MonadBase(..), liftBaseDefault)
|
||||
import Control.Monad.Catch (MonadThrow, throwM)
|
||||
-- import Control.Monad.Error.Class (MonadError(..))
|
||||
@ -230,7 +226,6 @@ instance Monad m => Applicative (SerialT m) where
|
||||
|
||||
MONAD_COMMON_INSTANCES(SerialT,)
|
||||
LIST_INSTANCES(SerialT)
|
||||
NFDATA1_INSTANCE(SerialT)
|
||||
FOLDABLE_INSTANCE(SerialT)
|
||||
TRAVERSABLE_INSTANCE(SerialT)
|
||||
|
||||
@ -434,7 +429,6 @@ instance Monad m => Monad (WSerialT m) where
|
||||
|
||||
MONAD_COMMON_INSTANCES(WSerialT,)
|
||||
LIST_INSTANCES(WSerialT)
|
||||
NFDATA1_INSTANCE(WSerialT)
|
||||
FOLDABLE_INSTANCE(WSerialT)
|
||||
TRAVERSABLE_INSTANCE(WSerialT)
|
||||
|
||||
|
@ -17,7 +17,6 @@ library
|
||||
Streamly.Prelude
|
||||
, Streamly
|
||||
|
||||
-- XXX uses C code
|
||||
, Streamly.Internal.Data.Atomics
|
||||
|
||||
-- Internal modules
|
||||
@ -64,8 +63,6 @@ library
|
||||
-- the GHC versions we support
|
||||
base >= 4.8 && < 5
|
||||
, containers >= 0.5 && < 0.7
|
||||
, deepseq >= 1.4.1 && < 1.5
|
||||
, directory >= 1.3 && < 1.4
|
||||
, ghc-prim >= 0.2 && < 0.6
|
||||
, transformers >= 0.4 && < 0.6
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user