From 724679790dfff00a973455cdb304d719ebaf7271 Mon Sep 17 00:00:00 2001 From: Antonio Nuno Monteiro Date: Tue, 18 Aug 2026 22:58:31 -0700 Subject: [PATCH] refactor(install): share install entry construction Signed-off-by: Antonio Nuno Monteiro --- src/dune_rules/install_rules.ml | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/src/dune_rules/install_rules.ml b/src/dune_rules/install_rules.ml index 6016b57fe8c..ae2d11d4cab 100644 --- a/src/dune_rules/install_rules.ml +++ b/src/dune_rules/install_rules.ml @@ -198,12 +198,13 @@ end = struct let doc_install_files ~loc mld_contents = List.rev_map mld_contents ~f:(fun (mld : Doc_sources.mld) -> - Install.Entry.Unexpanded.make + make_entry + None ~kind:Install.Entry.Unexpanded.File ~dst:(sprintf "odoc-pages/%s" (Path.Local.to_string mld.in_doc)) + ~loc Section.Doc - mld.path - |> Install.Entry.Sourced.Unexpanded.create ~loc) + mld.path) ;; let lib_install_files @@ -455,11 +456,7 @@ end = struct and+ execs = lib_ppxs ctx ~scope ~lib and+ dll_files = dll_files ~modes:ocaml ~dynlink:lib.dynlink ~ctx info - >>| List.rev_map ~f:(fun a -> - let entry = - Install.Entry.Unexpanded.make ~kind:Install.Entry.Unexpanded.File Stublibs a - in - Install.Entry.Sourced.Unexpanded.create ~loc entry) + >>| List.rev_map ~f:(make_entry ~kind:Install.Entry.Unexpanded.File Stublibs) in let install_c_headers = List.rev_map lib.install_c_headers ~f:(fun (loc, base) ->