@@ -19,6 +19,9 @@ import System.Random (randomRIO)
1919-- Also, the worker dispatch depends on the worker dispatch latency which is
2020-- set to fixed 200 us. We need to keep that in mind when designing tests.
2121
22+moduleName :: String
23+moduleName = "Prelude.Adaptive"
24+
2225value :: Int
2326value = 1000
2427
@@ -78,7 +81,11 @@ randomVar = run (low,high) (low,high)
7881
7982main :: IO ()
8083main =
81− defaultMain
84+ defaultMain [bgroup moduleName allBenchmarks]
85+
86+ where
87+
88+ allBenchmarks =
8289 [
8390 bgroup "serialConstantSlowConsumer"
8491 [ bench "serially" $ nfIO $ alwaysConstSlowSerial fromSerial