Source file `XGetObject.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
let run ~context ~tasks ~slot
    ~(command_output :
       Fmlib_parse.Position.range * MlFront_Thunk.ThunkCommand.shell_output)
    ~archive_member 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
  let* () =
    BuildEngine.run_single ~config:(config context) ~tasks observer_module key
  in
  let* () =
    BuildEngine.output_get_object ~config:(config context)
      ~initiator:(initiator context) ~source:(source context) ~command_output
      ~archive_member key
  in
  return key