Fix benchmark error in Data.Array.Stream (#2230)
commit944dbbac6e00b90ec4f56639dda6651a729f79be
authorRanjeet Ranjan <ranjeetr@composewell.com>
dateSun 15 Jan 2023, 10:21 (4 years ago)
parente23fed4
benchmark/Streamly/Benchmark/Data/Array/Stream.hs+8−4
@@ -284,10 +284,14 @@ main = do
284284
285285 where
286286
287− alloc value = do
288− small <- Stream.toList $ Stream.arraysOf 100 $ sourceUnfoldrM value 0
289− big <- Stream.toList $ Stream.arraysOf value $ sourceUnfoldrM value 0
290− return (small, big)
287+ alloc value =
288+ if value <= 0
289+ then return (undefined, undefined)
290+ else
291+ do
292+ small <- Stream.toList $ Stream.arraysOf 100 $ sourceUnfoldrM value 0
293+ big <- Stream.toList $ Stream.arraysOf value $ sourceUnfoldrM value 0
294+ return (small, big)
291295
292296 allBenchmarks env arrays value =
293297 let (arraysSmall, arraysBig) = arrays