@@ -511,4 +511,4 @@ for xs f = foldr (<|>) empty $ map f xs
511-- XXX rename to fromList?
511-- XXX rename to fromList?
512{-# INLINABLE each #-}
512{-# INLINABLE each #-}
513each :: MonadAsync m => [a] -> AsyncT m a
513each :: MonadAsync m => [a] -> AsyncT m a
514−each xs = foldr (<>) empty $ map return xs
514+each xs = foldr (<>) mempty $ map return xs