git.iko.soy/streamly
on master help sign in
Make structural changes to bench:Prelude.Rate
af872aeadithyaov
benchmark/Streamly/Benchmark/Prelude/Rate.hs+23−22
compare with master
unifiedsplit
@@ -38,28 +38,28 @@ avgRateThreads1 value rate_ =
38-- XXX arbitrarily large rate should be the same as rate Nothing
38-- XXX arbitrarily large rate should be the same as rate Nothing
39o_1_space_async_avgRate :: Int -> [Benchmark]
39o_1_space_async_avgRate :: Int -> [Benchmark]
40o_1_space_async_avgRate value =
40o_1_space_async_avgRate value =
41+ [ bgroup
41− [ bgroup "asyncly"
42+ "asyncly"
43+ [ bgroup
42− [ bgroup "avgRate"
44+ "avgRate"
43− -- benchIO "unfoldr" $ toNull asyncly
45+ -- benchIO "unfoldr" $ toNull asyncly
44− -- benchIOSrc asyncly "unfoldrM" (sourceUnfoldrM value)
46+ -- benchIOSrc asyncly "unfoldrM" (sourceUnfoldrM value)
45− [ benchIOSrc asyncly "Nothing" $ rateNothing value
47+ [ benchIOSrc asyncly "Nothing" $ rateNothing value
46− , benchIOSrc asyncly "1M" $ avgRate value 1000000
48+ , benchIOSrc asyncly "1M" $ avgRate value 1000000
47− , benchIOSrc asyncly "3M" $ avgRate value 3000000
49+ , benchIOSrc asyncly "3M" $ avgRate value 3000000
48− , benchIOSrc asyncly "10M/maxThreads1"
50+ , benchIOSrc asyncly "10M/maxThreads1"
49− $ avgRateThreads1 value 10000000
51+ $ avgRateThreads1 value 10000000
50− , benchIOSrc asyncly "10M" $ avgRate value 10000000
52+ , benchIOSrc asyncly "10M" $ avgRate value 10000000
51− , benchIOSrc asyncly "20M" $ avgRate value 20000000
53+ , benchIOSrc asyncly "20M" $ avgRate value 20000000
52− ]
54+ ]
53− ]
55+ ]
54 ]
56 ]
55
57
56o_1_space_ahead_avgRate :: Int -> [Benchmark]
58o_1_space_ahead_avgRate :: Int -> [Benchmark]
57o_1_space_ahead_avgRate value =
59o_1_space_ahead_avgRate value =
60+ [ bgroup
58− [ bgroup "aheadly"
61+ "aheadly"
59− [ bgroup "avgRate"
60− [ benchIOSrc aheadly "1M" $ avgRate value 1000000
62+ [bgroup "avgRate" [benchIOSrc aheadly "1M" $ avgRate value 1000000]]
61− ]
62− ]
63 ]
63 ]
64
64
65-------------------------------------------------------------------------------
65-------------------------------------------------------------------------------
@@ -74,8 +74,9 @@ main = do
74 where
74 where
75
75
76 allBenchmarks value =
76 allBenchmarks value =
77− [ bgroup (o_1_space_prefix moduleName) $ concat
77+ [ bgroup (o_1_space_prefix moduleName)
78+ $ concat
78− [ o_1_space_async_avgRate value
79+ [ o_1_space_async_avgRate value
79− , o_1_space_ahead_avgRate value
80+ , o_1_space_ahead_avgRate value
80− ]
81+ ]
81 ]
82 ]