Module `IO.Future`

type 'a t = 'a IO_lwt.Future.t
type 'a promise = 'a IO_lwt.Future.promise

val fullfill : 'a promise -> 'a -> unit
val cancel : 'a t -> unit
val make : ?⁠on_cancel:(unit -> unit) -> unit -> 'a t * 'a promise

type 'a wait = 'a t

val wait : 'a t -> 'a wait