git.iko.soy/streamly
on master help sign in
Use bigger stream sizes in some benchmarks
a41a7b5Harendra Kumar
benchmark/Streamly/Benchmark/FileSystem/Handle/Read.hs+4−4
compare with master
unifiedsplit
@@ -267,7 +267,7 @@ o_1_space_reduce_read env =
267 readCountBytes inh
267 readCountBytes inh
268 , mkBench "US.lines . SS.decodeLatin1" env $ \inh _ ->
268 , mkBench "US.lines . SS.decodeLatin1" env $ \inh _ ->
269 readCountLines inh
269 readCountLines inh
270− , mkBenchSmall "US.words . SS.decodeLatin1" env $ \inh _ ->
270+ , mkBench "US.words . SS.decodeLatin1" env $ \inh _ ->
271 readCountWords inh
271 readCountWords inh
272
272
273 -- read with utf8 decoding
273 -- read with utf8 decoding
@@ -357,7 +357,7 @@ o_1_space_reduce_read_grouped env =
357
357
358 -- XXX investigate why we need inline/noinline in these cases (GHC)
358 -- XXX investigate why we need inline/noinline in these cases (GHC)
359 -- Chunk using parsers
359 -- Chunk using parsers
360− , mkBenchSmall
360+ , mkBench
361 ("S.foldMany (FL.take " ++ show (bigSize env) ++ " FL.sum)")
361 ("S.foldMany (FL.take " ++ show (bigSize env) ++ " FL.sum)")
362 env
362 env
363 $ \inh _ -> noinline foldManyChunksOfSum (bigSize env) inh
363 $ \inh _ -> noinline foldManyChunksOfSum (bigSize env) inh
@@ -365,7 +365,7 @@ o_1_space_reduce_read_grouped env =
365 "S.foldMany (FL.take 1 FL.sum)"
365 "S.foldMany (FL.take 1 FL.sum)"
366 env
366 env
367 $ \inh _ -> inline foldManyChunksOfSum 1 inh
367 $ \inh _ -> inline foldManyChunksOfSum 1 inh
368− , mkBenchSmall
368+ , mkBench
369 ("S.foldMany1 (FL.take " ++ show (bigSize env) ++ " FL.sum)")
369 ("S.foldMany1 (FL.take " ++ show (bigSize env) ++ " FL.sum)")
370 env
370 env
371 $ \inh _ -> noinline foldMany1ChunksOfSum (bigSize env) inh
371 $ \inh _ -> noinline foldMany1ChunksOfSum (bigSize env) inh
@@ -373,7 +373,7 @@ o_1_space_reduce_read_grouped env =
373 "S.foldMany1 (FL.take 1 FL.sum)"
373 "S.foldMany1 (FL.take 1 FL.sum)"
374 env
374 env
375 $ \inh _ -> inline foldMany1ChunksOfSum 1 inh
375 $ \inh _ -> inline foldMany1ChunksOfSum 1 inh
376− , mkBenchSmall
376+ , mkBench
377 ("S.parseMany (FL.take " ++ show (bigSize env) ++ " FL.sum)")
377 ("S.parseMany (FL.take " ++ show (bigSize env) ++ " FL.sum)")
378 env
378 env
379 $ \inh _ -> noinline parseManyChunksOfSum (bigSize env) inh
379 $ \inh _ -> noinline parseManyChunksOfSum (bigSize env) inh