+1

vendor/opam/eio/.github/workflows/main.yml

reviewed

··· 57 57 - run: opam exec -- dune build 58 58 - run: opam exec -- dune runtest 59 59 - run: opam exec -- dune exec -- ./examples/net/main.exe 60 60 + - run: opam exec -- dune exec -- ./examples/fs/main.exe 60 61 docker: 61 62 runs-on: ubuntu-latest 62 63 steps:

+1 -1

vendor/opam/eio/lib_eio_windows/eio_windows_stubs.c

reviewed

··· 237 237 238 238 if (!NT_SUCCESS(r)) { 239 239 caml_win32_maperr(RtlNtStatusToDosError(r)); 240 240 - uerror("openat", Nothing); 240 240 + uerror("openat", v_pathname); 241 241 } 242 242 243 243 // Now close the file to delete it

+1 -1

vendor/opam/eio/lib_eio_windows/fs.ml

reviewed

··· 82 82 let dir = resolve t dir in 83 83 Switch.run @@ fun sw -> 84 84 let open Low_level in 85 85 - let dirfd = Low_level.openat ~sw ~nofollow:true dir Flags.Open.(generic_read + synchronise) Flags.Disposition.(open_if) Flags.Create.(directory) in 85 85 + let dirfd = Err.run (Low_level.openat ~sw ~nofollow:true dir Flags.Open.(generic_read + synchronise) Flags.Disposition.(open_if)) Flags.Create.(directory) in 86 86 fn (Some dirfd) leaf 87 87 ) 88 88 ) else fn None path