From ba439b534d624c0cac0b4374208cc6ec92a9e9fd Mon Sep 17 00:00:00 2001 From: Jeremie Dimino Date: Fri, 30 Mar 2018 16:47:29 -0400 Subject: [PATCH] Fix previous commit --- src/gen_rules.ml | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/src/gen_rules.ml b/src/gen_rules.ml index f77ff98c..82c12406 100644 --- a/src/gen_rules.ml +++ b/src/gen_rules.ml @@ -725,12 +725,19 @@ module Gen(P : Install_rules.Params) = struct Path.relative dir (header ^ ".h")) |> Path.Set.of_list); - (let modules = Module.Name.Map.values modules in + (let modules = + Module.Name.Map.fold modules ~init:[] ~f:(fun m acc -> + if Module.has_impl m then + m :: acc + else + acc) + in let top_sorted_modules = Ocamldep.Dep_graph.top_closed_implementations dep_graphs.impl modules in List.iter Mode.all ~f:(fun mode -> - build_lib lib ~scope ~flags ~dir ~obj_dir ~mode ~top_sorted_modules ~modules)); + build_lib lib ~scope ~flags ~dir ~obj_dir ~mode ~top_sorted_modules + ~modules)); (* Build *.cma.js *) SC.add_rules sctx ( let src = lib_archive lib ~dir ~ext:(Mode.compiled_lib_ext Mode.Byte) in