git.iko.soy/streamly
on master help sign in
Fix the space requirements of two benchmarks
424f1e9Harendra Kumar
benchmark/Streamly/Benchmark/Prelude/Serial/Elimination.hs+2−1
compare with master
unifiedsplit
@@ -471,7 +471,6 @@ o_1_space_elimination_folds value =
471 , benchIOSink value "and" (and value)
471 , benchIOSink value "and" (and value)
472 , benchIOSink value "or" (or value)
472 , benchIOSink value "or" (or value)
473
473
474− , benchPureSink value "showsPrec pure streams" showInstance
475 -- length is used to check for foldr/build fusion
474 -- length is used to check for foldr/build fusion
476 , benchPureSink value "length . IsList.toList" (Prelude.length . GHC.toList)
475 , benchPureSink value "length . IsList.toList" (Prelude.length . GHC.toList)
477 ]
476 ]
@@ -513,6 +512,8 @@ o_n_heap_elimination_buffered value =
513 -- XXX can the outputs be streaming? Can we have special read/show
512 -- XXX can the outputs be streaming? Can we have special read/show
514 -- style type classes, readM/showM supporting streaming effects?
513 -- style type classes, readM/showM supporting streaming effects?
515 [ bench "showPrec Haskell lists" $ nf showInstanceList (mkList value)
514 [ bench "showPrec Haskell lists" $ nf showInstanceList (mkList value)
515+ -- XXX This is not o-1-space for GHC-8.10
516+ , benchPureSink value "showsPrec pure streams" showInstance
516 ]
517 ]
517 ]
518 ]
518
519
bin/bench-exec-one.sh+2
@@ -102,6 +102,8 @@ bench_rts_opts_specific () {
102 Data.SmallArray/o-1-sp*) echo -n "-K128K" ;;
102 Data.SmallArray/o-1-sp*) echo -n "-K128K" ;;
103 # For tasty-bench
103 # For tasty-bench
104 Data.Array*/o-1-space/generation/show) echo -n "-M32M" ;;
104 Data.Array*/o-1-space/generation/show) echo -n "-M32M" ;;
105+ # XXX For GHC-8.10
106+ Data.Array/o-1-space/transformationX4/map) echo -n "-M32M" ;;
105 *) echo -n "" ;;
107 *) echo -n "" ;;
106 esac
108 esac
107}
109}