Revert "Add strict variant of iterate"
authorBen Gamari <ben@smart-cactus.org>
Sat, 19 Aug 2017 11:44:13 +0000 (07:44 -0400)
committerBen Gamari <ben@smart-cactus.org>
Sat, 19 Aug 2017 11:44:53 +0000 (07:44 -0400)
This was not ready to commit.
This reverts commit 8e5b6ec6566da57d15b0810a07902d9eac85cb79.

libraries/base/Data/List.hs
libraries/base/Data/OldList.hs
libraries/base/GHC/List.hs
libraries/base/changelog.md

index 2ac04a9..693c0dd 100644 (file)
@@ -76,7 +76,6 @@ module Data.List
 
    -- ** Infinite lists
    , iterate
-   , iterate'
    , repeat
    , replicate
    , cycle
index c4c38d4..d03c0bc 100644 (file)
@@ -77,7 +77,6 @@ module Data.OldList
 
    -- ** Infinite lists
    , iterate
-   , iterate'
    , repeat
    , replicate
    , cycle
index ca95379..70bfbe4 100644 (file)
@@ -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 #-}
index a62b833..ab304a3 100644 (file)
@@ -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*