@@ -154,6 +154,7 @@ module Streamly.Internal.Data.Stream.IsStream.Expand
154154 , iterateMapWith
155155 , iterateSmapMWith
156156 , iterateMapLeftsWith
157+ , iterateUnfold
157158
158159 -- * Deprecated
159160 , concatUnfold
@@ -962,13 +963,6 @@ intercalateSuffix :: (IsStream t, Monad m)
962963intercalateSuffix unf seed str = fromStreamD $ D.unfoldMany unf
963964 $ D.intersperseSuffix (return seed) (toStreamD str)
964965
965−{-
966−{-# INLINE iterateUnfold #-}
967−iterateUnfold :: (IsStream t, MonadAsync m)
968− => Unfold m a a -> t m a -> t m a
969−iterateUnfold unf xs = undefined
970−-}
971−
972966------------------------------------------------------------------------------
973967-- Combine N Streams - concatMap
974968------------------------------------------------------------------------------
@@ -1075,12 +1069,14 @@ iterateMapWith combine f = IsStream.concatMapWith combine go
10751069 where
10761070 go x = fromPure x `combine` IsStream.concatMapWith combine go (f x)
10771071
1078−{-
1072+-- | Same as @iterateMapWith Stream.serial@ but more efficient due to stream
1073+-- fusion.
1074+--
1075+-- /Unimplemented/
10791076{-# INLINE iterateUnfold #-}
1080−iterateUnfold :: (IsStream t, MonadAsync m)
1081− => Unfold m a a -> t m a -> t m a
1082−iterateUnfold unf xs = undefined
1083−-}
1077+iterateUnfold :: -- (IsStream t, MonadAsync m) =>
1078+ Unfold m a a -> t m a -> t m a
1079+iterateUnfold = undefined
10841080
10851081------------------------------------------------------------------------------
10861082-- Flattening Graphs