e86ab1b1db
This PR makes `IO.RealWorld` opaque. It also adds a new compiler -only `lcRealWorld` constant to represent this type within the compiler. By default, an opaque type definition is treated like `lcAny`, whereas we want a more efficient representation. At the moment, this isn't a big difference, but in the future we would like to completely erase `IO.RealWorld` at runtime.
17 lines
626 B
Text
17 lines
626 B
Text
[Compiler.saveMono] size: 12
|
|
def f b a.1 : EStateM.Result IO.Error lcRealWorld PUnit :=
|
|
jp _jp.2 a _y.3 : EStateM.Result IO.Error lcRealWorld PUnit :=
|
|
let _x.4 := print a _y.3;
|
|
cases _x.4 : EStateM.Result IO.Error lcRealWorld PUnit
|
|
| EStateM.Result.ok a.5 a.6 =>
|
|
let _x.7 := print a a.6;
|
|
return _x.7
|
|
| EStateM.Result.error a.8 a.9 =>
|
|
return _x.4;
|
|
cases b : EStateM.Result IO.Error lcRealWorld PUnit
|
|
| Bool.false =>
|
|
let _x.10 := 1;
|
|
goto _jp.2 _x.10 a.1
|
|
| Bool.true =>
|
|
let _x.11 := 0;
|
|
goto _jp.2 _x.11 a.1
|