diff --git a/src/dune_rules/artifacts_db.ml b/src/dune_rules/artifacts_db.ml index 4b891b53abb2..e23469100c9f 100644 --- a/src/dune_rules/artifacts_db.ml +++ b/src/dune_rules/artifacts_db.ml @@ -36,7 +36,6 @@ let available_exes ~dir (exes : Dune_file.Executables.t) = let get_installed_binaries ~(context : Context.t) stanzas = let open Memo.O in - let install_dir = Install.Context.bin_dir ~context:(Context.name context) in let expand_str ~dir sw = Expander.With_reduced_var_set.expand_str ~context ~dir sw in let expand_str_partial ~dir sw = Expander.With_reduced_var_set.expand_str_partial ~context ~dir sw @@ -60,7 +59,7 @@ let get_installed_binaries ~(context : Context.t) stanzas = in let p = Path.Local.of_string (Install.Entry.Dst.to_string p) in if Path.Local.is_root (Path.Local.parent_exn p) - then Some (Path.Build.append_local install_dir p) + then Some (Path.Build.append_local dir p) else None) >>| List.filter_opt >>| Path.Build.Set.of_list