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