@@ -29,6 +29,7 @@ module Streamly.Internal.Data.Stream.IsStream.Common
2929 -- * Transformation
3030 , map
3131 , scanlMAfter'
32+ , postscanlMAfter'
3233 , postscanlM'
3334 , smapM
3435 -- $smapM_Notes
@@ -354,6 +355,12 @@ scanlMAfter' :: (IsStream t, Monad m)
354355scanlMAfter' step initial done stream =
355356 fromStreamD $ D.scanlMAfter' step initial done $ toStreamD stream
356357
358+{-# INLINE postscanlMAfter' #-}
359+postscanlMAfter' :: (IsStream t, Monad m)
360+ => (b -> a -> m b) -> m b -> (b -> m b) -> t m a -> t m b
361+postscanlMAfter' step initial done stream =
362+ fromStreamD $ D.postscanlMAfter' step initial done $ toStreamD stream
363+
357364-- XXX this needs to be concurrent
358365-- | Like 'postscanl'' but with a monadic step function and a monadic seed.
359366--