1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
module Promise = Promise
module Fiber = Fiber
module Switch = Switch
module Cancel = Cancel
module Exn = Exn
module Private = struct
module Suspend = Suspend
module Cells = Cells
module Broadcast = Broadcast
module Single_waiter = Single_waiter
module Trace = Trace
module Fiber_context = Cancel.Fiber_context
module Debug = Debug
module Effects = struct
type 'a enqueue = 'a Suspend.enqueue
type _ Effect.t +=
| Suspend = Suspend.Suspend
| Fork = Fiber.Fork
| Get_context = Cancel.Get_context
end
end
|
