@@ -1950,6 +1950,9 @@ intersperseM m = fromStreamS . S.intersperseM m . toStreamS
1950intersperse :: (IsStream t, MonadAsync m) => a -> t m a -> t m a
1950intersperse :: (IsStream t, MonadAsync m) => a -> t m a -> t m a
1951intersperse a = fromStreamS . S.intersperse a . toStreamS
1951intersperse a = fromStreamS . S.intersperse a . toStreamS
1953+-- | Insert a monadic action after each element in the stream.
1953{-# INLINE insertAfterEach #-}
1956{-# INLINE insertAfterEach #-}
1954insertAfterEach :: (IsStream t, MonadAsync m) => m a -> t m a -> t m a
1957insertAfterEach :: (IsStream t, MonadAsync m) => m a -> t m a -> t m a
1955insertAfterEach m = fromStreamS . S.insertAfterEach m . toStreamS
1958insertAfterEach m = fromStreamS . S.insertAfterEach m . toStreamS