Use Utils.executable_object_directory instead of inlining it in gen_rules.ml

2018-05-14 13:06:32 +01:00 · 2018-05-14 13:06:32 +01:00 · 76ab05d620
parent ea9e1f94b6
commit 76ab05d620
1 changed files with 1 additions and 1 deletions
--- a/src/gen_rules.ml
+++ b/src/gen_rules.ml
@ -871,7 +871,7 @@ module Gen(P : Install_rules.Params) = struct
    (* Use "eobjs" rather than "objs" to avoid a potential conflict
       with a library of the same name *)
    let obj_dir =
-      Path.relative dir ("." ^ (List.hd programs).name ^ ".eobjs")
+      Utils.executable_object_directory ~dir (List.hd programs).name
    in
    Exe.build_and_link_many sctx
      ~dir