From 1cb534209299a5d2016385f255611f31f1af7ee8 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Mon, 10 Jul 2023 22:48:04 -0400
Subject: [PATCH] expose Runner

---
 src/moonpool.ml  | 3 ++-
 src/moonpool.mli | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

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