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

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