From decdf72e3a28694a5e9738dbf849e4af5e80520e Mon Sep 17 00:00:00 2001 From: Harendra Kumar Date: Wed, 30 May 2018 09:20:08 +0530 Subject: [PATCH] use lower number of elements in benchmark stream To enable parallel benchmarks --- benchmark/Linear.hs | 8 ++++---- benchmark/LinearOps.hs | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/benchmark/Linear.hs b/benchmark/Linear.hs index b6d3f88e3..5515a91d1 100644 --- a/benchmark/Linear.hs +++ b/benchmark/Linear.hs @@ -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 diff --git a/benchmark/LinearOps.hs b/benchmark/LinearOps.hs index 3b7d724aa..f56b2aab6 100644 --- a/benchmark/LinearOps.hs +++ b/benchmark/LinearOps.hs @@ -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