mirror of
https://github.com/composewell/streamly.git
synced 2024-09-11 11:37:22 +03:00
Fix benchmark error in Data.Array.Stream (#2230)
This commit is contained in:
parent
e23fed4ba1
commit
944dbbac6e
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user