remove deepseq

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

@@ -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

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

@@ -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)
 

streamly.cabal

@@ -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