git.iko.soy/streamly
on master help sign in
use new names for deprecated functions
583a48cHarendra Kumar
benchmark/Main.hs+20−20
compare with master
unifiedsplit
@@ -41,39 +41,39 @@ main = do
41 [ bench "function style all serial" $ nfIO streamly_function_style
41 [ bench "function style all serial" $ nfIO streamly_function_style
42
42
43 , bgroup "serial bind"
43 , bgroup "serial bind"
44− [ bench "serial" $ nfIO (as (A.<>))
44+ [ bench "serial" $ nfIO (as (A.append))
45− , bench "fair serial" $ nfIO (as (A.<=>))
45+ , bench "fair serial" $ nfIO (as (A.interleave))
46− , bench "left parallel" $ nfIO (as (A.<|))
46+ , bench "left parallel" $ nfIO (as (A.asyncmerge))
47− , bench "fair parallel" $ nfIO (as (A.<|>))
47+ , bench "fair parallel" $ nfIO (as (A.parmerge))
48 ]
48 ]
49
49
50 , bgroup "interleaved bind"
50 , bgroup "interleaved bind"
51− [ bench "serial" $ nfIO (ai (A.<>))
51+ [ bench "serial" $ nfIO (ai (A.append))
52− , bench "fair serial" $ nfIO (ai (A.<=>))
52+ , bench "fair serial" $ nfIO (ai (A.interleave))
53− , bench "left parallel" $ nfIO (ai (A.<|))
53+ , bench "left parallel" $ nfIO (ai (A.asyncmerge))
54− , bench "fair parallel" $ nfIO (ai (A.<|>))
54+ , bench "fair parallel" $ nfIO (ai (A.parmerge))
55 ]
55 ]
56
56
57 , bgroup "async bind"
57 , bgroup "async bind"
58− [ bench "serial" $ nfIO (aa (A.<>))
58+ [ bench "serial" $ nfIO (aa (A.append))
59− , bench "fair serial" $ nfIO (aa (A.<=>))
59+ , bench "fair serial" $ nfIO (aa (A.interleave))
60− , bench "left parallel" $ nfIO (aa (A.<|))
60+ , bench "left parallel" $ nfIO (aa (A.asyncmerge))
61− , bench "fair parallel" $ nfIO (aa (A.<|>))
61+ , bench "fair parallel" $ nfIO (aa (A.parmerge))
62 ]
62 ]
63
63
64 , bgroup "parallel bind"
64 , bgroup "parallel bind"
65− [ bench "serial" $ nfIO (ap (A.<>))
65+ [ bench "serial" $ nfIO (ap (A.append))
66− , bench "fair serial" $ nfIO (ap (A.<=>))
66+ , bench "fair serial" $ nfIO (ap (A.interleave))
67− , bench "left parallel" $ nfIO (ap (A.<|))
67+ , bench "left parallel" $ nfIO (ap (A.asyncmerge))
68− , bench "fair parallel" $ nfIO (ap (A.<|>))
68+ , bench "fair parallel" $ nfIO (ap (A.parmerge))
69 ]
69 ]
70
70
71 -- Benchmark smallest possible actions composed together
71 -- Benchmark smallest possible actions composed together
72 , bgroup "serial bind nil"
72 , bgroup "serial bind nil"
73− [ bench "serial" $ nfIO (streamly_nil (A.<>))
73+ [ bench "serial" $ nfIO (streamly_nil (A.append))
74− , bench "fair serial" $ nfIO (streamly_nil (A.<=>))
74+ , bench "fair serial" $ nfIO (streamly_nil (A.interleave))
75− , bench "left parallel" $ nfIO (streamly_nil (A.<|))
75+ , bench "left parallel" $ nfIO (streamly_nil (A.asyncmerge))
76− , bench "fair parallel" $ nfIO (streamly_nil (A.<|>))
76+ , bench "fair parallel" $ nfIO (streamly_nil (A.parmerge))
77 ]
77 ]
78 ]
78 ]
79#ifdef EXTRA_BENCHMARKS
79#ifdef EXTRA_BENCHMARKS