refactor(install): use Path.of_local (#10248)

`append_local` creates source paths that look like `_build/install/...`. While these are "correct", `Path.Source.is_in_build_dir` returns true for these. In contrast, `Path.of_local` will detect the `_build` part and make a build path. Signed-off-by: Etienne Millon <[email protected]>
ocaml · Mar 13, 2024 · 481fa1b · 481fa1b
1 parent 5980dfd
commit 481fa1b
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/bin/install_uninstall.ml b/bin/install_uninstall.ml
@@ -606,8 +606,7 @@ let run
       let entries_per_package =
         List.map install_files ~f:(fun (package, install_file) ->
           let entries =
-            Install.Entry.load_install_file install_file (fun local ->
-              Path.append_local (Path.source Path.Source.root) local)
+            Install.Entry.load_install_file install_file Path.of_local
             |> List.filter ~f:(fun (entry : Path.t Install.Entry.t) ->
               Sections.should_install sections entry.section)
           in