@@ -47,7 +47,7 @@ import Control.Monad.IO.Class (MonadIO(..))
4747import Control.Monad.Reader.Class (MonadReader(..))
4848import Control.Monad.State.Class (MonadState(..))
4949import Control.Monad.Trans.Class (MonadTrans)
50−import Data.Semigroup (Semigroup(..), cycle1)
50+import Data.Semigroup (Semigroup(..))
5151import Prelude hiding (drop, take, zipWith)
5252import Asyncly.Core
5353import Asyncly.Prelude
@@ -515,7 +515,7 @@ instance Monad m => Functor (ZipStream m) where
515515 in m Nothing stp yield
516516
517517instance Monad m => Applicative (ZipStream m) where
518− pure a = ZipStream $ cycle1 (pure a)
518+ pure = ZipStream . yielding
519519 (<*>) = zipWith id
520520
521521instance Streaming ZipStream where
@@ -581,7 +581,7 @@ instance Monad m => Functor (ZipAsync m) where
581581 in m Nothing stp yield
582582
583583instance MonadAsync m => Applicative (ZipAsync m) where
584− pure a = ZipAsync $ cycle1 (pure a)
584+ pure = ZipAsync . yielding
585585 (<*>) = zipAsyncWith id
586586
587587instance Streaming ZipAsync where