@@ -140,11 +140,9 @@ fromStream size start =
140fromStreamK :: Monad m => Int -> Int -> m ()
140fromStreamK :: Monad m => Int -> Int -> m ()
141fromStreamK size start = drainGeneration UF.fromStreamK (K.replicate size start)
141fromStreamK size start = drainGeneration UF.fromStreamK (K.replicate size start)
143−-- XXX INVESTIGATE: This either takes too long or is in an infinite loop, either
143+{-# INLINE fromStreamD #-}
144−-- way see whats going on.
145−{-# INLINE _fromStreamD #-}
146−_fromStreamD :: Monad m => Int -> Int -> m ()
144+fromStreamD :: Monad m => Int -> Int -> m ()
147−_fromStreamD size start =
145+fromStreamD size start =
148 drainGeneration UF.fromStreamD (D.replicate size start)
146 drainGeneration UF.fromStreamD (D.replicate size start)
150{-# INLINE _nilM #-}
148{-# INLINE _nilM #-}
@@ -430,8 +428,7 @@ o_1_space_generation size =
430 "generation"
428 "generation"
431 [ benchIO "fromStream" $ fromStream size
429 [ benchIO "fromStream" $ fromStream size
432 , benchIO "fromStreamK" $ fromStreamK size
430 , benchIO "fromStreamK" $ fromStreamK size
433− -- XXX INVESTIGATE, see the definition
434− -- , benchIO "fromStreamD" $ fromStreamD size
431+ , benchIO "fromStreamD (n/100)" $ fromStreamD (size `div` 100)
435 -- Very small benchmarks, reporting in ns
432 -- Very small benchmarks, reporting in ns
436 -- , benchIO "nilM" $ nilM size
433 -- , benchIO "nilM" $ nilM size
437 , benchIO "consM" $ consM size
434 , benchIO "consM" $ consM size