@@ -503,7 +503,7 @@ mkZippingType dtNameStr apOpStr isConcurrent = do
504 classConstraints =
504 classConstraints =
505 if isConcurrent
505 if isConcurrent
506− then ["Streamly.Internal.Data.Stream.Concurrent.MonadAsync"]
506+ then ["Streamly.Data.Stream.Concurrent.MonadAsync"]
507 else ["Monad"]
507 else ["Monad"]
509-- | Create a type with specific stream combination properties.
509-- | Create a type with specific stream combination properties.
@@ -518,11 +518,11 @@ mkZippingType dtNameStr apOpStr isConcurrent = do
518-- instance Monad m => Functor (Parallel m)
518-- instance Monad m => Functor (Parallel m)
519-- where {-# INLINE fmap #-}
519-- where {-# INLINE fmap #-}
520-- fmap f (Parallel strm) = Parallel (fmap f strm)
520-- fmap f (Parallel strm) = Parallel (fmap f strm)
521−-- instance Streamly.Internal.Data.Stream.Concurrent.MonadAsync m => Monad (Parallel m)
521+-- instance Streamly.Data.Stream.Concurrent.MonadAsync m => Monad (Parallel m)
522-- where {-# INLINE (>>=) #-}
522-- where {-# INLINE (>>=) #-}
523-- (>>=) (Parallel strm1) f = let f1 a = unParallel (f a)
523-- (>>=) (Parallel strm1) f = let f1 a = unParallel (f a)
524-- in Parallel (bindConcurrent strm1 f1)
524-- in Parallel (bindConcurrent strm1 f1)
525−-- instance Streamly.Internal.Data.Stream.Concurrent.MonadAsync m => Applicative (Parallel m)
525+-- instance Streamly.Data.Stream.Concurrent.MonadAsync m => Applicative (Parallel m)
526-- where {-# INLINE pure #-}
526-- where {-# INLINE pure #-}
527-- pure = Parallel . Streamly.Data.Stream.fromPure
527-- pure = Parallel . Streamly.Data.Stream.fromPure
528-- {-# INLINE (<*>) #-}
528-- {-# INLINE (<*>) #-}
@@ -565,5 +565,5 @@ mkNestingType dtNameStr bindOpStr isConcurrent = do
566 classConstraints =
566 classConstraints =
567 if isConcurrent
567 if isConcurrent
568− then ["Streamly.Internal.Data.Stream.Concurrent.MonadAsync"]
568+ then ["Streamly.Data.Stream.Concurrent.MonadAsync"]
569 else ["Monad"]
569 else ["Monad"]