From 1d57ae8fbb36d22220954ffed26f6f725a287b6a Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Sun, 9 Jul 2023 17:19:26 -0400 Subject: [PATCH] remove dead code --- src/pool.ml | 3 +-- src/suspend_types_.ml | 15 --------------- 2 files changed, 1 insertion(+), 17 deletions(-) delete mode 100644 src/suspend_types_.ml diff --git a/src/pool.ml b/src/pool.ml index 34fe3cb7..ce10656f 100644 --- a/src/pool.ml +++ b/src/pool.ml @@ -73,8 +73,7 @@ let num_tasks_ (self : state) : int = let prepare_for_await () : Dla_.t = (* current state *) let st : - ((with_handler:bool -> task -> unit) * Suspend_types_.suspension) option - A.t = + ((with_handler:bool -> task -> unit) * Suspend_.suspension) option A.t = A.make None in diff --git a/src/suspend_types_.ml b/src/suspend_types_.ml deleted file mode 100644 index df0f47b6..00000000 --- a/src/suspend_types_.ml +++ /dev/null @@ -1,15 +0,0 @@ -(** (Private) types for {!Suspend_}. - - This module is an implementation detail of Moonpool and should - not be used outside of it. *) - -type suspension = (unit, exn * Printexc.raw_backtrace) result -> unit -(** A suspended computation *) - -type task = unit -> unit - -type suspension_handler = { - handle: run:(with_handler:bool -> task -> unit) -> suspension -> unit; -} -[@@unboxed] -(** The handler that knows what to do with the suspended computation *)