@@ -78,7 +78,7 @@ asyncly_basic
79asyncly_basic f g = do
79asyncly_basic f g = do
80 xs <- A.toList $ do
80 xs <- A.toList $ do
81− A.drop 100 (A.foldMapWith g return [1..100000 :: Int] `f` \x ->
81+ A.drop 100 (A.forEachWith g [1..100000 :: Int] $ \x ->
82 afilter even x `f` amap (+1))
82 afilter even x `f` amap (+1))
83 `f` amap (+1)
83 `f` amap (+1)
84 `f` afilter (\y -> y `mod` 2 == 0)
84 `f` afilter (\y -> y `mod` 2 == 0)