git.iko.soy/streamly
on master help sign in
fix example
2d3ccadHarendra Kumar
examples/map-reduce.hs+3−4
compare with master
unifiedsplit
@@ -1,7 +1,6 @@
1−import Data.List (sum)
2import Asyncly
1import Asyncly
3−import Asyncly.Prelude
2+import Asyncly.Prelude as A
4
3
5main = do
4main = do
6− xs <- toList $ serially $ forEachWith (<|) [1..100] $ \x -> return (x * x)
5+ s <- A.sum $ serially $ forEachWith (<|) [1..100] $ \x -> return (x * x)
7− print . sum $ xs
6+ print s