From def384b4f83e3d9b4a00ff0fe7791971c4a20091 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Fri, 27 Oct 2023 16:18:24 -0400 Subject: [PATCH] fix warning --- src/suspend_.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)