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

fix warning

Browse source
This commit is contained in:
Simon Cruanes 2023-10-27 16:18:24 -04:00
parent 052b70027a
commit def384b4f8
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/suspend_.ml
View file

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