Source file XEnterObject.ml

let run ~context ~tasks ~slot observer_module =
  let open BuildInstance.Syntax in
  let open XCommon.IdWithContext in
  let* apply_aliases =
    BuildTraceStore.get_apply_aliases ~config:(config context)
  in
  let key =
    BuildEngine.create_key_for_form ~apply_aliases:(Some apply_aliases)
      ~debug_reference:(debug_reference context) ~module_id:(module_id context)
      ~module_semver:(module_semver context) ~slot ()
  in
  (* set shell breakpoint so it enters the shell on task [key] *)
  BuildConfig.set_enter_shell_breakpoint_before_function (config context)
    (BuildEngine.uncloak_key key);
  (* *)
  let* () =
    BuildEngine.run_single ~config:(config context) ~tasks observer_module key
  in
  return key