expose Runner

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_

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