Fix path of install files

This commit is contained in:
Jeremie Dimino 2017-02-23 16:55:42 +00:00
parent f2e1f7d2ce
commit a257da3f94
1 changed files with 3 additions and 1 deletions

View File

@ -1587,7 +1587,9 @@ module Gen(P : Params) = struct
else else
entries entries
in 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 add_rule
(Build.path_set (Install.files entries) >>> (Build.path_set (Install.files entries) >>>
Build.create_file ~target:fn (fun () -> Build.create_file ~target:fn (fun () ->