ox: keep compat with oxcaml/oxcaml#main

Signed-off-by: Ali Caglayan <alizter@gmail.com>

Author: Alizter

flake.lock

@@ -128,7 +128,7 @@ let win32_unlink fn =
        retry_loop 30)
 ;;
 
-let unlink_exn = if Stdlib.Sys.win32 then win32_unlink else Unix.unlink
+let unlink_exn = if Stdlib.Sys.win32 then win32_unlink else fun t -> Unix.unlink t
 
 type unlink_status =
   | Success

otherlibs/stdune/src/fpath.ml

@@ -239,7 +239,9 @@ module Session = struct
   let write t b =
     match Platform.OS.value with
     | Linux -> send t b
-    | _ -> Unix.single_write t b
+    | _ -> 
+      fun pos len ->
+      Unix.single_write t b pos len
   ;;
 
   let rec csexp_write_loop fd out_buf token =

src/csexp_rpc/csexp_rpc.ml

@@ -143,7 +143,7 @@ let global () = !global
 let create ~extended_build_job_info dst =
   let print =
     match dst with
-    | Out out -> Stdlib.output_string out
+    | Out out -> fun str -> Stdlib.output_string out str
     | Custom c -> c.write
   in
   let close =