composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-09-11 11:37:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix benchmark error in Data.Array.Stream (#2230)

Browse Source
This commit is contained in:
Ranjeet Ranjan 2023-01-15 10:21:14 +05:30 committed by GitHub
parent e23fed4ba1
commit 944dbbac6e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
benchmark/Streamly/Benchmark/Data/Array/Stream.hs
View File

@ -284,10 +284,14 @@ main = do
where
alloc value = do
small <- Stream.toList $ Stream.arraysOf 100 $ sourceUnfoldrM value 0
big <- Stream.toList $ Stream.arraysOf value $ sourceUnfoldrM value 0
return (small, big)
alloc value =
if value <= 0
then return (undefined, undefined)
else
do
small <- Stream.toList $ Stream.arraysOf 100 $ sourceUnfoldrM value 0
big <- Stream.toList $ Stream.arraysOf value $ sourceUnfoldrM value 0
return (small, big)
allBenchmarks env arrays value =
let (arraysSmall, arraysBig) = arrays