gistfile1.txt

match (fun_header.body)
{
  | FunBody.Parsed =>
    def typer =  Manager.ComponentsFactory.CreateTyper (this);
    typer.BeforeStage1 = (a, b) => {
      CurrentTypeBuilder.OnBeforeStage1(a, b);
    }
    
    typer.BeforeStage2 = (a, b) => {
      CurrentTypeBuilder.OnBeforeStage2(a, b);
    }
    
    ...
    
    typer.RunFullTyping ();
  | _ => ()
}