Fix eio_windows

ocaml-multicore · Nov 20, 2024 · dbe9a44 · dbe9a44
1 parent 85ffd3d
commit dbe9a44
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/lib_eio_windows/dune b/lib_eio_windows/dune
@@ -2,7 +2,7 @@
  (name eio_windows)
  (public_name eio_windows)
  (library_flags :standard -cclib -lbcrypt -cclib -lntdll)
- (enabled_if (= %{os_type} "Win32"))
+; (enabled_if (= %{os_type} "Win32"))
  (foreign_stubs
   (language c)
   (include_dirs ../lib_eio/unix/include)

diff --git a/lib_eio_windows/low_level.ml b/lib_eio_windows/low_level.ml
@@ -140,7 +140,9 @@ let read_link ?dirfd path =
 
 let chown ?dirfd ~follow:_ ~uid ~gid path =
   in_worker_thread @@ fun () ->
-  Eio_unix.Private.chown ~flags:0 ~uid ~gid dirfd path
+  match dirfd with
+  | None -> failwith "Chown is unsupported on Windows"
+  | Some dirfd -> Eio_unix.Private.chown ~flags:0 ~uid ~gid dirfd path
 
 external eio_readv : Unix.file_descr -> Cstruct.t array -> int = "caml_eio_windows_readv"