diff --git a/src/suspend_.ml b/src/suspend_.ml index 88eacb2c..6555b6bc 100644 --- a/src/suspend_.ml +++ b/src/suspend_.ml @@ -1,5 +1,3 @@ -module A = Atomic_ - type suspension = (unit, exn * Printexc.raw_backtrace) result -> unit type task = unit -> unit @@ -9,6 +7,8 @@ type suspension_handler = { handle: run:(task -> unit) -> suspension -> unit } [@@@ifge 5.0] [@@@ocaml.alert "-unstable"] +module A = Atomic_ + type _ Effect.t += Suspend : suspension_handler -> unit Effect.t let[@inline] suspend h = Effect.perform (Suspend h)