@@ -109,7 +109,7 @@ asyncly_basic = do
109 >>= amap (+1)
109 >>= amap (+1)
110 >>= adrop 1000
110 >>= adrop 1000
111 >>= amap (+1)
111 >>= amap (+1)
112− >>= afilter (\x -> x `mod` 2 == 0))
112+ >>= afilter (\y -> y `mod` 2 == 0))
113 assert (Prelude.length xs == 499000) $
113 assert (Prelude.length xs == 499000) $
114 return (Prelude.length xs)
114 return (Prelude.length xs)