fix: always start from lib_subdir when installing module sources

Signed-off-by: Antonio Nuno Monteiro <anmonteiro@gmail.com>
ocaml · Feb 27, 2023 · 5c967b1 · 5c967b1
1 parent b9c1224
commit 5c967b1
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 2 deletions.
diff --git a/src/dune_rules/install_rules.ml b/src/dune_rules/install_rules.ml
@@ -155,6 +155,15 @@ end = struct
                   in
                   (sub_dir, dst)
               in
+              let sub_dir =
+                match sub_dir with
+                | None -> lib_subdir
+                | Some subdir ->
+                  Some
+                    (match lib_subdir with
+                    | None -> subdir
+                    | Some lib_subdir -> Filename.concat lib_subdir subdir)
+              in
               make_entry ?sub_dir Lib source ?dst))
     in
     let { Lib_config.has_native; ext_obj; _ } = lib_config in

diff --git a/test/blackbox-tests/test-cases/install/dune-package-source-path.t b/test/blackbox-tests/test-cases/install/dune-package-source-path.t
@@ -70,8 +70,6 @@ Test paths on public libraries with `.` are correct
   $ cat b/_build/default/b.install
   lib: [
     "_build/install/default/lib/b/META"
-    "_build/install/default/lib/b/child/bar.ml" {"child/bar.ml"}
-    "_build/install/default/lib/b/child/child.ml" {"child/child.ml"}
     "_build/install/default/lib/b/dune-package"
     "_build/install/default/lib/b/sub/b.a" {"sub/b.a"}
     "_build/install/default/lib/b/sub/b.cma" {"sub/b.cma"}
@@ -89,6 +87,8 @@ Test paths on public libraries with `.` are correct
     "_build/install/default/lib/b/sub/b__Foo.cmi" {"sub/b__Foo.cmi"}
     "_build/install/default/lib/b/sub/b__Foo.cmt" {"sub/b__Foo.cmt"}
     "_build/install/default/lib/b/sub/b__Foo.cmx" {"sub/b__Foo.cmx"}
+    "_build/install/default/lib/b/sub/child/bar.ml" {"sub/child/bar.ml"}
+    "_build/install/default/lib/b/sub/child/child.ml" {"sub/child/child.ml"}
     "_build/install/default/lib/b/sub/foo.ml" {"sub/foo.ml"}
   ]
   libexec: [