@@ -503,12 +503,12 @@ replicateM n = Unfold step inject
503 inject x = return (x, n)
503 inject x = return (x, n)
505 {-# INLINE_LATE step #-}
505 {-# INLINE_LATE step #-}
506− step (x, i) = do
506+ step (x, i) =
509− $ if i <= 0
507+ if i <= 0
510− then Stop
508+ then return Stop
511− else Yield x1 (x, i - 1)
511+ return $ Yield x1 (x, i - 1)
513-- | Generates an infinite stream repeating the seed.
513-- | Generates an infinite stream repeating the seed.