Use Luv.Pipe.pipe

Author: patricoferris

lib_eio_luv/eio_luv.ml

@@ -1157,9 +1157,7 @@ let rec run : type a. (_ -> a) -> a = fun main ->
               discontinue k ex
           )
           | Eio_unix.Private.Pipe sw -> Some (fun k ->
-            let r, w = Unix.pipe ~cloexec:true () in 
-            let r = Luv_unix.Os_fd.Fd.from_unix r |> or_raise |> Luv.File.open_osfhandle |> or_raise in
-            let w = Luv_unix.Os_fd.Fd.from_unix w |> or_raise |> Luv.File.open_osfhandle |> or_raise in
+            let r, w = Luv.Pipe.pipe ~read_flags:[] ~write_flags:[] () |> or_raise in
             let r = (flow (File.of_luv ~close_unix:true ~sw r) :> <Eio.Flow.source; Eio.Flow.close; Eio_unix.unix_fd>) in
             let w = (flow (File.of_luv ~close_unix:true ~sw w) :> <Eio.Flow.sink; Eio.Flow.close; Eio_unix.unix_fd>) in
             continue k (r, w)