@@ -503,7 +503,7 @@ mkZippingType dtNameStr apOpStr isConcurrent = do
503503
504504 classConstraints =
505505 if isConcurrent
506− then ["Streamly.Internal.Data.Stream.Concurrent.MonadAsync"]
506+ then ["Streamly.Data.Stream.Concurrent.MonadAsync"]
507507 else ["Monad"]
508508
509509-- | Create a type with specific stream combination properties.
@@ -518,11 +518,11 @@ mkZippingType dtNameStr apOpStr isConcurrent = do
518518-- instance Monad m => Functor (Parallel m)
519519-- where {-# INLINE fmap #-}
520520-- 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)
522522-- where {-# INLINE (>>=) #-}
523523-- (>>=) (Parallel strm1) f = let f1 a = unParallel (f a)
524524-- 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)
526526-- where {-# INLINE pure #-}
527527-- pure = Parallel . Streamly.Data.Stream.fromPure
528528-- {-# INLINE (<*>) #-}
@@ -565,5 +565,5 @@ mkNestingType dtNameStr bindOpStr isConcurrent = do
565565
566566 classConstraints =
567567 if isConcurrent
568− then ["Streamly.Internal.Data.Stream.Concurrent.MonadAsync"]
568+ then ["Streamly.Data.Stream.Concurrent.MonadAsync"]
569569 else ["Monad"]