mirror of
https://github.com/c-cube/moonpool.git
synced 2025-12-10 05:03:58 -05:00
15 lines
383 B
OCaml
15 lines
383 B
OCaml
[@@@deprecated "just use lwt or eio or something else"]
|
|
|
|
module Fd = Picos_io_fd
|
|
module Unix = Picos_io.Unix
|
|
module Select = Picos_io_select
|
|
|
|
let fd_of_unix_fd : Unix.file_descr -> Fd.t = Fun.id
|
|
|
|
(** [main f] runs [f()] inside a scheduler. *)
|
|
let main (f : Moonpool.Runner.t -> 'a) : 'a = Moonpool_fib.main f
|
|
|
|
(** {2 Async read/write} *)
|
|
|
|
let read = Unix.read
|
|
let write = Unix.write
|