simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-06 11:15:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

remove dead code

Browse source
This commit is contained in:
Simon Cruanes 2023-07-09 17:19:26 -04:00
parent 76ca0f2d88
commit 1d57ae8fbb
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 1 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/pool.ml
View file

@ -73,8 +73,7 @@ let num_tasks_ (self : state) : int =
let prepare_for_await () : Dla_.t = let prepare_for_await () : Dla_.t =
(* current state *) (* current state *)
let st : let st :
((with_handler:bool -> task -> unit) * Suspend_types_.suspension) option ((with_handler:bool -> task -> unit) * Suspend_.suspension) option A.t =
A.t =
A.make None A.make None
in in

15
src/suspend_types_.ml
View file

@ -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 *)