git.iko.soy/streamly
on master help sign in
Fix enumerateFrom benchmark in bench:Prelude.Serial
3a64e63adithyaov
benchmark/Streamly/Benchmark/Prelude/Serial.hs+1−1
compare with master
unifiedsplit
@@ -138,7 +138,7 @@ enumerate count n = S.take (count + n) $ S.enumerate
138-- n ~ 1
138-- n ~ 1
139{-# INLINE enumerateTo #-}
139{-# INLINE enumerateTo #-}
140enumerateTo :: (Monad m, S.IsStream t) => Int -> Int -> t m Int
140enumerateTo :: (Monad m, S.IsStream t) => Int -> Int -> t m Int
141−enumerateTo count n = S.enumerateFrom (minBound + count + n)
141+enumerateTo count n = S.enumerateTo (minBound + count + n)
142
142
143{-# INLINE iterate #-}
143{-# INLINE iterate #-}
144iterate :: (Monad m, S.IsStream t) => Int -> Int -> t m Int
144iterate :: (Monad m, S.IsStream t) => Int -> Int -> t m Int