@@ -284,10 +284,14 @@ main = do
287− alloc value = do
287+ alloc value =
289+ then return (undefined, undefined)
288− small <- Stream.toList $ Stream.arraysOf 100 $ sourceUnfoldrM value 0
292+ small <- Stream.toList $ Stream.arraysOf 100 $ sourceUnfoldrM value 0
289− big <- Stream.toList $ Stream.arraysOf value $ sourceUnfoldrM value 0
293+ big <- Stream.toList $ Stream.arraysOf value $ sourceUnfoldrM value 0
290− return (small, big)
294+ return (small, big)
292 allBenchmarks env arrays value =
296 allBenchmarks env arrays value =
293 let (arraysSmall, arraysBig) = arrays
297 let (arraysSmall, arraysBig) = arrays