@@ -21,8 +21,8 @@ module Streamly.Internal.Data.Stream.Zip
2121 ZipStream (..)
2222 , ZipSerialM
2323 , ZipSerial
24− , zipWithK
25− , zipWithMK
24+ , zipWithD
25+ , zipWithMD
2626 )
2727where
2828
@@ -42,16 +42,16 @@ import qualified Streamly.Internal.Data.Stream.StreamD as D
4242-- >>> import qualified Streamly.Data.Stream as Stream
4343-- >>> import qualified Streamly.Internal.Data.Stream.Zip as Stream
4444
45−{-# INLINE zipWithMK #-}
46−zipWithMK :: Monad m =>
45+{-# INLINE zipWithMD #-}
46+zipWithMD :: Monad m =>
4747 (a -> b -> m c) -> Stream m a -> Stream m b -> Stream m c
48−zipWithMK f m1 m2 =
48+zipWithMD f m1 m2 =
4949 fromStreamD $ D.zipWithM f (toStreamD m1) (toStreamD m2)
5050
51−{-# INLINE zipWithK #-}
52−zipWithK :: Monad m
51+{-# INLINE zipWithD #-}
52+zipWithD :: Monad m
5353 => (a -> b -> c) -> Stream m a -> Stream m b -> Stream m c
54−zipWithK f = zipWithMK (\a b -> return (f a b))
54+zipWithD f = zipWithMD (\a b -> return (f a b))
5555
5656------------------------------------------------------------------------------
5757-- Serially Zipping Streams
@@ -111,4 +111,4 @@ instance Monad m => Applicative (ZipStream m) where
111111 pure = ZipStream . Stream.repeat
112112
113113 {-# INLINE (<*>) #-}
114− ZipStream m1 <*> ZipStream m2 = ZipStream $ zipWithK id m1 m2
114+ ZipStream m1 <*> ZipStream m2 = ZipStream $ zipWithD id m1 m2