Replace dyn_paths with dyn_path_set
Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
f59fe20344
commit
8e8cda01b2
|
@ -211,7 +211,7 @@ let prog_and_args ?(dir=Path.root) prog args =
|
|||
(get_prog prog &&&
|
||||
(arr (Arg_spec.expand ~dir args)
|
||||
>>>
|
||||
dyn_paths (arr (fun (_args, deps) -> Path.Set.to_list deps))
|
||||
dyn_path_set (arr (fun (_args, deps) -> deps))
|
||||
>>>
|
||||
arr fst))
|
||||
|
||||
|
|
|
@ -830,11 +830,11 @@ module Action = struct
|
|||
| Ok path -> path
|
||||
| Error fail -> Action.Prog.Not_found.raise fail))
|
||||
>>>
|
||||
Build.dyn_paths (Build.arr (fun action ->
|
||||
Build.dyn_path_set (Build.arr (fun action ->
|
||||
let { Action.Infer.Outcome.deps; targets = _ } =
|
||||
Action.Infer.infer action
|
||||
in
|
||||
Pset.to_list deps))
|
||||
deps))
|
||||
>>>
|
||||
Build.action_dyn () ~dir ~targets
|
||||
in
|
||||
|
|
Loading…
Reference in New Issue