11 lines
262 B
Text
11 lines
262 B
Text
@[inline] def f (b : Bool) : IO Nat :=
|
|
match b with
|
|
| true => return 0
|
|
| false => return 1
|
|
|
|
@[noinline] def print (x : Nat) : IO Unit :=
|
|
IO.println x
|
|
|
|
set_option trace.Compiler.saveMono true
|
|
def foo (b : Bool) : IO Unit :=
|
|
bind (f b) fun x => print x
|