use lower number of elements in benchmark stream

To enable parallel benchmarks
This commit is contained in:
Harendra Kumar 2018-05-30 09:20:08 +05:30
parent 4c00da9ab4
commit decdf72e3a
2 changed files with 5 additions and 5 deletions

View File

@ -66,10 +66,10 @@ main = do
, bgroup "parallely"
[ --benchIO "unfoldr" $ Ops.toNull parallely
--, benchSrcIO parallely "fromFoldable" Ops.sourceFromFoldable
--, benchSrcIO parallely "foldMapWith" Ops.sourceFoldMapWith
-- , benchSrcIO parallely "unfoldrM" Ops.sourceUnfoldrM
-- , benchSrcIO parallely "fromFoldableM" Ops.sourceFromFoldableM
-- , benchSrcIO parallely "foldMapWithM" Ops.sourceFoldMapWithM
benchSrcIO parallely "foldMapWith" Ops.sourceFoldMapWith
, benchSrcIO parallely "unfoldrM" Ops.sourceUnfoldrM
, benchSrcIO parallely "fromFoldableM" Ops.sourceFromFoldableM
, benchSrcIO parallely "foldMapWithM" Ops.sourceFoldMapWithM
]
]
-- XXX this is the same foldMapWith in the above benchmarks, need to dedup

View File

@ -17,7 +17,7 @@ import qualified Streamly as S
import qualified Streamly.Prelude as S
value, appendValue, maxValue :: Int
value = 1000000
value = 100000
appendValue = 100000
maxValue = value + 1000