The unpac monorepo manager self-hosting as a monorepo using unpac
Merge pull request #809 from dijkstracula/nathan/posix_openat_exn
posix: spawn_unix: ensure spawn_unix wraps its call to `openat`
authored by
Thomas Leonard
and committed by
GitHub
2c95a9c2
c3a30421
+3
-1
+3
-1
vendor/opam/eio/lib_eio_posix/process.ml
+3
-1
vendor/opam/eio/lib_eio_posix/process.ml
···
35
35
| None -> Fmt.invalid_arg "cwd is not an OS directory!"
36
36
| Some dirfd ->
37
37
Switch.run ~name:"spawn_unix" @@ fun launch_sw ->
38
-
let cwd = Low_level.openat ~sw:launch_sw ~mode:0 dirfd path Low_level.Open_flags.(rdonly + directory) in
38
+
let cwd = Err.run (fun () ->
39
+
let flags = Low_level.Open_flags.(rdonly + directory) in
40
+
Low_level.openat ~sw:launch_sw ~mode:0 dirfd path flags) () in
39
41
fn (Low_level.Process.Fork_action.fchdir cwd :: actions)
40
42
in
41
43
with_actions cwd @@ fun actions ->