diff --git a/src/moonpool.ml b/src/moonpool.ml index 91885b1a..de17f461 100644 --- a/src/moonpool.ml +++ b/src/moonpool.ml @@ -5,8 +5,9 @@ let start_thread_on_some_domain f x = module Atomic = Atomic_ module Blocking_queue = Bb_queue module Chan = Chan -module Lock = Lock module Fork_join = Fork_join module Fut = Fut +module Lock = Lock module Pool = Pool +module Runner = Runner module Suspend_ = Suspend_ diff --git a/src/moonpool.mli b/src/moonpool.mli index b998cc69..dc95e222 100644 --- a/src/moonpool.mli +++ b/src/moonpool.mli @@ -5,6 +5,7 @@ *) module Pool = Pool +module Runner = Runner val start_thread_on_some_domain : ('a -> unit) -> 'a -> Thread.t (** Similar to {!Thread.create}, but it picks a background domain at random