From 1a4037f8d135489f3f67425c672121b2420292d1 Mon Sep 17 00:00:00 2001 From: Jeremie Dimino Date: Thu, 15 Mar 2018 17:44:46 +0000 Subject: [PATCH] Define the package_install alias at once This is slightly more efficient that calling `add_alias_deps` for each file. --- src/install_rules.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/install_rules.ml b/src/install_rules.ml index 8d7eb6e4..6db17359 100644 --- a/src/install_rules.ml +++ b/src/install_rules.ml @@ -206,8 +206,6 @@ module Gen(P : Install_params) = struct Path.append install_dir (Install.Entry.relative_installed_path entry ~package) in 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) let promote_install_file = @@ -239,6 +237,9 @@ module Gen(P : Install_params) = struct (Utils.install_file ~package ~findlib_toolchain:ctx.findlib_toolchain) 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 ~mode:(if promote_install_file then Promote_but_delete_on_clean