package moonpool

  1. Overview
  2. Docs

Source file dla_.ml

1
2
3
4
5
6
7
8
9
10
# 1 "src/dla_.real.ml"
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)