moonpool/src/private/dla_.real.ml
2024-04-02 12:51:57 -04:00

9 lines
261 B
OCaml

type t = Domain_local_await.t = {
release: unit -> unit;
await: unit -> unit;
}
let using : prepare_for_await:(unit -> t) -> while_running:(unit -> 'a) -> 'a =
Domain_local_await.using
let setup_domain () = Domain_local_await.per_thread (module Thread)