Define the package_install alias at once
This is slightly more efficient that calling `add_alias_deps` for each file.
This commit is contained in:
parent
ee5dd505fb
commit
1a4037f8d1
|
@ -206,8 +206,6 @@ module Gen(P : Install_params) = struct
|
||||||
Path.append install_dir (Install.Entry.relative_installed_path entry ~package)
|
Path.append install_dir (Install.Entry.relative_installed_path entry ~package)
|
||||||
in
|
in
|
||||||
SC.add_rule sctx (Build.symlink ~src:entry.src ~dst);
|
SC.add_rule sctx (Build.symlink ~src:entry.src ~dst);
|
||||||
SC.add_alias_deps sctx
|
|
||||||
(Alias.package_install ~context:ctx ~pkg:package) [dst];
|
|
||||||
Install.Entry.set_src entry dst)
|
Install.Entry.set_src entry dst)
|
||||||
|
|
||||||
let promote_install_file =
|
let promote_install_file =
|
||||||
|
@ -239,6 +237,9 @@ module Gen(P : Install_params) = struct
|
||||||
(Utils.install_file ~package ~findlib_toolchain:ctx.findlib_toolchain)
|
(Utils.install_file ~package ~findlib_toolchain:ctx.findlib_toolchain)
|
||||||
in
|
in
|
||||||
let entries = local_install_rules entries ~package in
|
let entries = local_install_rules entries ~package in
|
||||||
|
SC.add_alias_deps sctx
|
||||||
|
(Alias.package_install ~context:ctx ~pkg:package)
|
||||||
|
(List.map entries ~f:(fun (e : Install.Entry.t) -> e.src));
|
||||||
SC.add_rule sctx
|
SC.add_rule sctx
|
||||||
~mode:(if promote_install_file then
|
~mode:(if promote_install_file then
|
||||||
Promote_but_delete_on_clean
|
Promote_but_delete_on_clean
|
||||||
|
|
Loading…
Reference in New Issue