@@ -227,6 +227,8 @@ instance Monad m => Monad (AsyncT m) where
227-- Alternative ways to bind
227-- Alternative ways to bind
228------------------------------------------------------------------------------
228------------------------------------------------------------------------------
230+-- XXX Do we need newtype wrappers for these?
230-- | Execute a monadic action for each element in the stream, in a fairly
232-- | Execute a monadic action for each element in the stream, in a fairly
231-- interleaved manner i.e. iterations yield alternately.
233-- interleaved manner i.e. iterations yield alternately.
232(>->) :: AsyncT m a -> (a -> AsyncT m b) -> AsyncT m b
234(>->) :: AsyncT m a -> (a -> AsyncT m b) -> AsyncT m b