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

use new names for deprecated functions

Browse Source
This commit is contained in:
Harendra Kumar 2018-04-17 10:07:52 +05:30
parent 69a9ae1f17
commit 583a48c490
1 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
benchmark/Main.hs
View File

@ -41,39 +41,39 @@ main = do
[ bench "function style all serial" $ nfIO streamly_function_style
, bgroup "serial bind"
[ bench "serial" $ nfIO (as (A.<>))
, bench "fair serial" $ nfIO (as (A.<=>))
, bench "left parallel" $ nfIO (as (A.<|))
, bench "fair parallel" $ nfIO (as (A.<|>))
[ bench "serial" $ nfIO (as (A.append))
, bench "fair serial" $ nfIO (as (A.interleave))
, bench "left parallel" $ nfIO (as (A.asyncmerge))
, bench "fair parallel" $ nfIO (as (A.parmerge))
]
, bgroup "interleaved bind"
[ bench "serial" $ nfIO (ai (A.<>))
, bench "fair serial" $ nfIO (ai (A.<=>))
, bench "left parallel" $ nfIO (ai (A.<|))
, bench "fair parallel" $ nfIO (ai (A.<|>))
[ bench "serial" $ nfIO (ai (A.append))
, bench "fair serial" $ nfIO (ai (A.interleave))
, bench "left parallel" $ nfIO (ai (A.asyncmerge))
, bench "fair parallel" $ nfIO (ai (A.parmerge))
]
, bgroup "async bind"
[ bench "serial" $ nfIO (aa (A.<>))
, bench "fair serial" $ nfIO (aa (A.<=>))
, bench "left parallel" $ nfIO (aa (A.<|))
, bench "fair parallel" $ nfIO (aa (A.<|>))
[ bench "serial" $ nfIO (aa (A.append))
, bench "fair serial" $ nfIO (aa (A.interleave))
, bench "left parallel" $ nfIO (aa (A.asyncmerge))
, bench "fair parallel" $ nfIO (aa (A.parmerge))
]
, bgroup "parallel bind"
[ bench "serial" $ nfIO (ap (A.<>))
, bench "fair serial" $ nfIO (ap (A.<=>))
, bench "left parallel" $ nfIO (ap (A.<|))
, bench "fair parallel" $ nfIO (ap (A.<|>))
[ bench "serial" $ nfIO (ap (A.append))
, bench "fair serial" $ nfIO (ap (A.interleave))
, bench "left parallel" $ nfIO (ap (A.asyncmerge))
, bench "fair parallel" $ nfIO (ap (A.parmerge))
]
-- Benchmark smallest possible actions composed together
, bgroup "serial bind nil"
[ bench "serial" $ nfIO (streamly_nil (A.<>))
, bench "fair serial" $ nfIO (streamly_nil (A.<=>))
, bench "left parallel" $ nfIO (streamly_nil (A.<|))
, bench "fair parallel" $ nfIO (streamly_nil (A.<|>))
[ bench "serial" $ nfIO (streamly_nil (A.append))
, bench "fair serial" $ nfIO (streamly_nil (A.interleave))
, bench "left parallel" $ nfIO (streamly_nil (A.asyncmerge))
, bench "fair parallel" $ nfIO (streamly_nil (A.parmerge))
]
]
#ifdef EXTRA_BENCHMARKS