lean4-htt/tests/lean/run/spec_issue.lean
2020-10-25 09:16:38 -07:00

7 lines
158 B
Text

set_option trace.compiler.ir.result true
def g (ys : List Nat) : IO Nat := do
let x := 0
let (_, x) ← StateT.run (ys.forM fun y => IO.println y) x
pure x