@@ -572,12 +572,8 @@ foldAdd f =
572572-- >>> Stream.foldrM step (return False) s
573573-- True
574574--
575−-- >>> import Control.Monad (join)
576−-- >>> foldrM f z = join $ Stream.foldr f z
577−--
578575{-# INLINE_NORMAL foldrM #-}
579576foldrM :: Monad m => (a -> m b -> m b) -> m b -> Stream m a -> m b
580−-- foldrM f z = join . Streamly.Internal.Data.Stream.StreamD.Type.foldr f z
581577foldrM f z (Stream step state) = go SPEC state
582578 where
583579 {-# INLINE_LATE go #-}