Skip to content

Commit d81c43d

Browse files
committed
Update argument names
1 parent b75fd14 commit d81c43d

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/Data/List/Base.agda

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -188,8 +188,8 @@ replicate zero x = []
188188
replicate (suc n) x = x ∷ replicate n x
189189

190190
iterate : (A A) A List A
191-
iterate f k zero = []
192-
iterate f k (suc n) = k ∷ iterate f (f k) n
191+
iterate s z zero = []
192+
iterate s z (suc n) = z ∷ iterate s (s z) n
193193

194194
inits : List A List (List A)
195195
inits [] = [] ∷ []

0 commit comments

Comments
 (0)