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

Use Path.root as the default

This commit is contained in:
Rudi Grinberg 2018-05-17 22:58:21 +07:00
parent 8cea102d3c
commit 8e72a3a951
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/process.ml
View File

@ -232,7 +232,8 @@ let run_internal ?dir ?(stdout_to=Terminal) ?(stderr_to=Terminal) ~env ~purpose
if display = Verbose then
Format.eprintf "@{<kwd>Running@}[@{<id>%d@}]: %s@." id
(Colors.strip_colors_for_stderr command_line);
let prog = Path.reach_for_running prog ~from:(Option.value ~default:Path.build_dir dir) in
let prog = Path.reach_for_running prog
~from:(Option.value ~default:Path.root dir) in
let argv = Array.of_list (prog :: args) in
let output_filename, stdout_fd, stderr_fd, to_close =
match stdout_to, stderr_to with