diff --git a/src/core/dune b/src/core/dune index d4ea6316..6e103f44 100644 --- a/src/core/dune +++ b/src/core/dune @@ -3,12 +3,12 @@ (name moonpool) (libraries moonpool.private - thread-local-storage + (re_export thread-local-storage) moonpool.dpool - picos.exn_bt - picos) + (re_export picos.exn_bt) + (re_export picos)) (flags :standard -open Moonpool_private) - (private_modules types_ util_pool_) + (private_modules util_pool_) (preprocess (action (run %{project_root}/src/cpp/cpp.exe %{input-file})))) diff --git a/src/core/moonpool.ml b/src/core/moonpool.ml index cf91f3c3..47e5e5e3 100644 --- a/src/core/moonpool.ml +++ b/src/core/moonpool.ml @@ -39,6 +39,7 @@ module Private = struct module Worker_loop_ = Worker_loop_ module Domain_ = Domain_ module Tracing_ = Tracing_ + module Types_ = Types_ let num_domains = Domain_pool_.max_number_of_domains end diff --git a/src/core/moonpool.mli b/src/core/moonpool.mli index d4243491..9958efd3 100644 --- a/src/core/moonpool.mli +++ b/src/core/moonpool.mli @@ -221,6 +221,7 @@ module Private : sig (** Utils for domains *) module Tracing_ = Tracing_ + module Types_ = Types_ val num_domains : unit -> int (** Number of domains in the backing domain pool *)