matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove one off function 

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-07-07 13:37:53 +07:00
parent 3a7b62a57d
commit 6159a2909c
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/super_context.ml
View File

@ -832,7 +832,6 @@ module Action = struct
let expand var syntax_version = let expand var syntax_version =
let loc = String_with_vars.Var.loc var in let loc = String_with_vars.Var.loc var in
let key = String_with_vars.Var.full_name 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 match String_with_vars.Var.destruct var with
| Single var_name -> | Single var_name ->
begin match expand_var_no_root sctx ~syntax_version ~var with begin match expand_var_no_root sctx ~syntax_version ~var with
@ -848,7 +847,7 @@ module Action = struct
| Pair (_, s)-> | Pair (_, s)->
begin match expand_form sctx ~syntax_version ~var with begin match expand_form sctx ~syntax_version ~var with
| Some Var.Form.Exe -> Some (path_exp (map_exe (Path.relative dir s))) | 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 | Some Bin -> begin
let sctx = host sctx in let sctx = host sctx in
match Artifacts.binary (artifacts sctx) s with match Artifacts.binary (artifacts sctx) s with