Commit 1cdceb9f authored by Ben Gamari's avatar Ben Gamari 🐢

Revert "Add strict variant of iterate"

This was not ready to commit.
This reverts commit 8e5b6ec6.
parent ee2e9ece
......@@ -76,7 +76,6 @@ module Data.List
-- ** Infinite lists
, iterate
, iterate'
, repeat
, replicate
, cycle
......
......@@ -77,7 +77,6 @@ module Data.OldList
-- ** Infinite lists
, iterate
, iterate'
, repeat
, replicate
, cycle
......
......@@ -23,7 +23,7 @@ module GHC.List (
map, (++), filter, concat,
head, last, tail, init, uncons, null, length, (!!),
foldl, foldl', foldl1, foldl1', scanl, scanl1, scanl', foldr, foldr1,
scanr, scanr1, iterate, iterate', repeat, replicate, cycle,
scanr, scanr1, iterate, repeat, replicate, cycle,
take, drop, sum, product, maximum, minimum, splitAt, takeWhile, dropWhile,
span, break, reverse, and, or,
any, all, elem, notElem, lookup,
......@@ -458,29 +458,6 @@ iterateFB c f x0 = go x0
#-}
-- | 'iterate\'' is the strict version of 'iterate'.
--
-- It ensures that the result of each application of force to weak head normal
-- form before proceeding.
{-# NOINLINE [1] iterate' #-}
iterate' :: (a -> a) -> a -> [a]
iterate' f x =
let x' = f x
in x' `seq` (x : iterate' f x')
{-# INLINE [0] iterate'FB #-} -- See Note [Inline FB functions]
iterate'FB :: (a -> b -> b) -> (a -> a) -> a -> b
iterate'FB c f x0 = go x0
where go x =
let x' = f x
in x' `seq` (x `c` go x')
{-# RULES
"iterate'" [~1] forall f x. iterate' f x = build (\c _n -> iterate'FB c f x)
"iterate'FB" [1] iterate'FB (:) = iterate'
#-}
-- | 'repeat' @x@ is an infinite list, with @x@ the value of every element.
repeat :: a -> [a]
{-# INLINE [0] repeat #-}
......
......@@ -16,9 +16,6 @@
* Add instances `Semigroup` and `Monoid` for `Control.Monad.ST` (#14107).
* Add `iterate'`, a strict version of `iterate`, to `Data.List`
and `Data.OldList` (#3474)
## 4.10.0.0 *April 2017*
* Bundled with GHC *TBA*
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment