composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-09-20 16:08:20 +03:00
Code Issues Packages Projects Releases Wiki Activity

fix example

Browse Source
This commit is contained in:
Harendra Kumar 2017-10-30 07:50:08 +05:30
parent 9eb7449ba5
commit 2d3ccadb5d
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
examples/map-reduce.hs
View File

@ -1,7 +1,6 @@
import Data.List (sum)
import Asyncly
import Asyncly.Prelude
import Asyncly.Prelude as A
main = do
xs <- toList $ serially $ forEachWith (<|) [1..100] $ \x -> return (x * x)
print . sum $ xs
s <- A.sum $ serially $ forEachWith (<|) [1..100] $ \x -> return (x * x)
print s