Skip to content

Commit dfc2072

Browse files
authored
melange: parallelize cmj/cmi rule creation (#12626)
Signed-off-by: Antonio Nuno Monteiro <[email protected]>
1 parent 6938f76 commit dfc2072

File tree

1 file changed

+6
-3
lines changed

1 file changed

+6
-3
lines changed

src/dune_rules/module_compilation.ml

Lines changed: 6 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -383,9 +383,12 @@ let build_module ?(force_write_cmi = false) ?(precompiled_cmi = false) cctx m =
383383
Super_context.add_rule sctx ~dir action_with_targets)))
384384
in
385385
Memo.when_ melange (fun () ->
386-
let* () = build_cm ~cm_kind:(Melange Cmj) ~phase:None in
387-
Memo.when_ (not precompiled_cmi) (fun () ->
388-
build_cm ~cm_kind:(Melange Cmi) ~phase:None))
386+
let+ () = build_cm ~cm_kind:(Melange Cmj) ~phase:None
387+
and+ () =
388+
Memo.when_ (not precompiled_cmi) (fun () ->
389+
build_cm ~cm_kind:(Melange Cmi) ~phase:None)
390+
in
391+
())
389392
;;
390393

391394
let ocamlc_i ~deps cctx (m : Module.t) ~output =

0 commit comments

Comments
 (0)