Change foldl to foldr in "each"
commit59c0bac57b888f4c71cddfb023e4465cb0603ec3
authorHarendra Kumar <harendra.kumar@gmail.com>
dateWed 19 Jul 2017, 08:16 (9 years ago)
parent5457bbd
src/Asyncly/AsyncT.hs+1−1
@@ -533,7 +533,7 @@ instance (Monoid a, MonadAsync m) => Monoid (AsyncT m a) where
533533-- scatter
534534each :: (MonadIO m, MonadBaseControl IO m, MonadThrow m)
535535 => [a] -> AsyncT m a
536−each xs = foldl (<|>) empty $ map return xs
536+each xs = foldr (<|>) empty $ map return xs
537537
538538------------------------------------------------------------------------------
539539-- Num