ilyakooo0/streamly
1
0
Fork 0
mirror of https://github.com/ilyakooo0/streamly.git synced 2024-10-06 21:27:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

A small performance tweak for the benchmark

Browse Source
This commit is contained in:
Harendra Kumar 2017-09-12 20:15:55 +05:30
parent 0bde21205a
commit 9dc19351df
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
benchmark/Main.hs
View File

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