mirror of
https://github.com/c-cube/moonpool.git
synced 2026-03-13 17:06:18 -04:00
13 lines
326 B
OCaml
13 lines
326 B
OCaml
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
|