From 6159a2909cf3ab6a7737a5e441dd371ccc7b44b2 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Sat, 7 Jul 2018 13:37:53 +0700 Subject: [PATCH] Remove one off function Signed-off-by: Rudi Grinberg --- src/super_context.ml | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/super_context.ml b/src/super_context.ml index 86e20125..a397ed8a 100644 --- a/src/super_context.ml +++ b/src/super_context.ml @@ -832,7 +832,6 @@ module Action = struct let expand var syntax_version = let loc = String_with_vars.Var.loc var in let key = String_with_vars.Var.full_name var in - let path_with_dep s = Some (path_exp (Path.relative dir s)) in match String_with_vars.Var.destruct var with | Single var_name -> begin match expand_var_no_root sctx ~syntax_version ~var with @@ -848,7 +847,7 @@ module Action = struct | Pair (_, s)-> begin match expand_form sctx ~syntax_version ~var with | Some Var.Form.Exe -> Some (path_exp (map_exe (Path.relative dir s))) - | Some Dep -> path_with_dep s + | Some Dep -> Some (path_exp (Path.relative dir s)) | Some Bin -> begin let sctx = host sctx in match Artifacts.binary (artifacts sctx) s with