@@ -303,11 +303,22 @@ o_1_space_concat value = sqrtVal `seq`
303303 (concatMapRepl sqrtVal sqrtVal)
304304 , benchIOSrc1 "unfoldManyRepl (sqrt n of sqrt n)"
305305 (unfoldManyRepl sqrtVal sqrtVal)
306+ ]
307+ ]
308+
309+ where
306310
311+ sqrtVal = round $ sqrt (fromIntegral value :: Double)
312+
313+o_n_space_concat :: Int -> [Benchmark]
314+o_n_space_concat value = sqrtVal `seq`
315+ [ bgroup "concat"
316+ [
307317 -------------------concatPairsWith-----------------
308318
309319 -- Use large number of streams to check scalability
310− , benchIOSrc1 "concatPairWithSerial (n of 1)"
320+
321+ benchIOSrc1 "concatPairWithSerial (n of 1)"
311322 (concatPairWithSerial value 1)
312323 , benchIOSrc1 "concatPairWithSerial (sqrtVal of sqrtVal)"
313324 (concatPairWithSerial sqrtVal sqrtVal)
@@ -427,5 +438,6 @@ benchmarks moduleName size =
427438 -- multi-stream
428439 o_n_space_applicative size
429440 , o_n_space_monad size
441+ , o_n_space_concat size
430442 ]
431443 ]