17 lines
622 B
Text
17 lines
622 B
Text
import Lean.Compiler.IR
|
|
open Lean
|
|
open Lean.IR
|
|
|
|
def tst : IO Unit :=
|
|
do env ← importModules [{module := `Lean.Compiler.IR.Basic}];
|
|
ctorLayout ← IO.ofExcept $ getCtorLayout env `Lean.IR.Expr.reuse;
|
|
ctorLayout.fieldInfo.forM $ fun finfo => IO.println (format finfo);
|
|
IO.println "---";
|
|
ctorLayout ← IO.ofExcept $ getCtorLayout env `Lean.EnvironmentHeader.mk;
|
|
ctorLayout.fieldInfo.forM $ fun finfo => IO.println (format finfo);
|
|
IO.println "---";
|
|
ctorLayout ← IO.ofExcept $ getCtorLayout env `Subtype.mk;
|
|
ctorLayout.fieldInfo.forM $ fun finfo => IO.println (format finfo);
|
|
pure ()
|
|
|
|
#eval tst
|