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