From cef5d02a29d833001c7b0b58b3fa92944833e03f Mon Sep 17 00:00:00 2001 From: ibara1454 Date: Wed, 3 Jan 2018 17:59:47 +0900 Subject: [PATCH 1/2] Fix the bug of Data.List.Lazy(iterate). --- src/Data/List/Lazy.purs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Data/List/Lazy.purs b/src/Data/List/Lazy.purs index 8f9f5ef..a15a9cb 100644 --- a/src/Data/List/Lazy.purs +++ b/src/Data/List/Lazy.purs @@ -186,7 +186,7 @@ repeat x = Z.fix \xs -> cons x xs -- | Create a list by iterating a function iterate :: forall a. (a -> a) -> a -> List a -iterate f x = Z.fix \xs -> cons x (f <$> xs) +iterate f x = cons x (Z.defer \_ -> iterate f (f x)) -- | Create a list by repeating another list cycle :: forall a. List a -> List a From b3ae58d0a34ffd94391439ad8fab3ec4066fdba3 Mon Sep 17 00:00:00 2001 From: ibara1454 Date: Thu, 4 Jan 2018 03:41:13 +0900 Subject: [PATCH 2/2] Resolve #140