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 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