Fix jbuilder exec for windows

2017-05-31 11:28:39 +01:00 · 2017-05-31 11:28:39 +01:00 · f18afbf8aa
parent ad817e7a34
commit f18afbf8aa
1 changed files with 1 additions and 1 deletions
--- a/bin/main.ml
+++ b/bin/main.ml
@ -775,7 +775,7 @@ let exec =
         let real_prog = Path.to_string real_prog     in
         let env       = Context.env_for_exec context in
         if Sys.win32 then
-           Future.run ~env Strict real_prog (prog :: args)
+           Future.run ~env Strict real_prog args
         else
           Unix.execve real_prog (Array.of_list (prog :: args)) env
      )