From a257da3f9489584d6c12eb403f2184e429777159 Mon Sep 17 00:00:00 2001
From: Jeremie Dimino <jdimino@janestreet.com>
Date: Thu, 23 Feb 2017 16:55:42 +0000
Subject: [PATCH] Fix path of install files

---
 src/gen_rules.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/gen_rules.ml b/src/gen_rules.ml
index 8614c015..e8c43a49 100644
--- a/src/gen_rules.ml
+++ b/src/gen_rules.ml
@@ -1587,7 +1587,9 @@ module Gen(P : Params) = struct
       else
         entries
     in
-    let fn = Path.relative ctx.build_dir (package ^ ".install") in
+    let fn =
+      Path.relative (Path.append ctx.build_dir package_path) (package ^ ".install")
+    in
     add_rule
       (Build.path_set (Install.files entries) >>>
        Build.create_file ~target:fn (fun () ->