@@ -38,28 +38,28 @@ avgRateThreads1 value rate_ =
3838-- XXX arbitrarily large rate should be the same as rate Nothing
3939o_1_space_async_avgRate :: Int -> [Benchmark]
4040o_1_space_async_avgRate value =
41− [ bgroup "asyncly"
42− [ bgroup "avgRate"
43− -- benchIO "unfoldr" $ toNull asyncly
44− -- benchIOSrc asyncly "unfoldrM" (sourceUnfoldrM value)
45− [ benchIOSrc asyncly "Nothing" $ rateNothing value
46− , benchIOSrc asyncly "1M" $ avgRate value 1000000
47− , benchIOSrc asyncly "3M" $ avgRate value 3000000
48− , benchIOSrc asyncly "10M/maxThreads1"
49− $ avgRateThreads1 value 10000000
50− , benchIOSrc asyncly "10M" $ avgRate value 10000000
51− , benchIOSrc asyncly "20M" $ avgRate value 20000000
52− ]
53− ]
41+ [ bgroup
42+ "asyncly"
43+ [ bgroup
44+ "avgRate"
45+ -- benchIO "unfoldr" $ toNull asyncly
46+ -- benchIOSrc asyncly "unfoldrM" (sourceUnfoldrM value)
47+ [ benchIOSrc asyncly "Nothing" $ rateNothing value
48+ , benchIOSrc asyncly "1M" $ avgRate value 1000000
49+ , benchIOSrc asyncly "3M" $ avgRate value 3000000
50+ , benchIOSrc asyncly "10M/maxThreads1"
51+ $ avgRateThreads1 value 10000000
52+ , benchIOSrc asyncly "10M" $ avgRate value 10000000
53+ , benchIOSrc asyncly "20M" $ avgRate value 20000000
54+ ]
55+ ]
5456 ]
5557
5658o_1_space_ahead_avgRate :: Int -> [Benchmark]
5759o_1_space_ahead_avgRate value =
58− [ bgroup "aheadly"
59− [ bgroup "avgRate"
60− [ benchIOSrc aheadly "1M" $ avgRate value 1000000
61− ]
62− ]
60+ [ bgroup
61+ "aheadly"
62+ [bgroup "avgRate" [benchIOSrc aheadly "1M" $ avgRate value 1000000]]
6363 ]
6464
6565-------------------------------------------------------------------------------
@@ -74,8 +74,9 @@ main = do
7474 where
7575
7676 allBenchmarks value =
77− [ bgroup (o_1_space_prefix moduleName) $ concat
78− [ o_1_space_async_avgRate value
79− , o_1_space_ahead_avgRate value
80− ]
77+ [ bgroup (o_1_space_prefix moduleName)
78+ $ concat
79+ [ o_1_space_async_avgRate value
80+ , o_1_space_ahead_avgRate value
81+ ]
8182 ]