@@ -533,7 +533,7 @@ instance (Monoid a, MonadAsync m) => Monoid (AsyncT m a) where
533-- scatter
533-- scatter
534each :: (MonadIO m, MonadBaseControl IO m, MonadThrow m)
534each :: (MonadIO m, MonadBaseControl IO m, MonadThrow m)
535 => [a] -> AsyncT m a
535 => [a] -> AsyncT m a
536−each xs = foldl (<|>) empty $ map return xs
536+each xs = foldr (<|>) empty $ map return xs
538------------------------------------------------------------------------------
538------------------------------------------------------------------------------