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

chore

Browse source
This commit is contained in:
Simon Cruanes 2024-02-08 23:30:16 -05:00
parent 4ff45df7e7
commit 6f707c869c
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
dune-project
View file

@ -36,6 +36,7 @@
(package (package
(name moonpool-lwt) (name moonpool-lwt)
(synopsis "Event loop for moonpool based on Lwt-engine") (synopsis "Event loop for moonpool based on Lwt-engine")
(allow_empty) ; on < 5.0
(depends (depends
(moonpool (= :version)) (moonpool (= :version))
(ocaml (>= 5.0)) (ocaml (>= 5.0))

2
src/core/suspend_.ml
View file

@ -16,6 +16,8 @@ type suspension_handler = {
[@@@ocaml.alert "-unstable"] [@@@ocaml.alert "-unstable"]
module A = Atomic_
type _ Effect.t += type _ Effect.t +=
| Suspend : suspension_handler -> unit Effect.t | Suspend : suspension_handler -> unit Effect.t
| Yield : unit Effect.t | Yield : unit Effect.t