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

compat

Browse source
This commit is contained in:
Simon Cruanes 2024-02-27 22:35:07 -05:00
parent 22f43670a7
commit 42d16465c3
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/core/suspend_.ml
View file

@ -1,8 +1,6 @@
type suspension = unit Exn_bt.result -> unit
type task = unit -> unit
[@@@ifge 5.0]
type suspension_handler = {
handle:
run:(task -> unit) ->
@ -12,6 +10,7 @@ type suspension_handler = {
}
[@@unboxed]
[@@@ifge 5.0]
[@@@ocaml.alert "-unstable"]
module A = Atomic_

3
src/core/suspend_.mli
View file

@ -6,8 +6,6 @@
type suspension = unit Exn_bt.result -> unit
(** A suspended computation *)
[@@@ifge 5.0]
type task = unit -> unit
type suspension_handler = {
@ -40,6 +38,7 @@ type suspension_handler = {
- use [resume] exactly
*)
[@@@ifge 5.0]
[@@@ocaml.alert "-unstable"]
type _ Effect.t +=