max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

fix(tests/lean/run/IO2): bad overload

Browse source
This commit is contained in:
Leonardo de Moura 2016-09-23 09:34:19 -07:00
parent 9a1ef1cc0d
commit 015c667eae
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/lean/run/IO2.lean
View file

@ -6,8 +6,8 @@ open list
since unit is at Type₁
-/
definition for {A : Type} {B : Type} : list A → (A → IO B) → IO poly_unit
definition foreach {A : Type} {B : Type} : list A → (A → IO B) → IO poly_unit
| [] f := return poly_unit.star
| (x::xs) f := do f x, for xs f
| (x::xs) f := do f x, foreach xs f
vm_eval for [1,2,3,4,5] (λ i, do put_str "value: ", put_nat i, put_str "\n")
vm_eval foreach [1,2,3,4,5] (λ i, do put_str "value: ", put_nat i, put_str "\n")