Fix eio_windows

ocaml-multicore · Nov 20, 2024 · 9808d13 · 9808d13
1 parent 85ffd3d
commit 9808d13
Showing 1 changed file with 3 additions and 1 deletion.
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"