module Fut: sig .. end
type 'a t
val return : 'a -> 'a t
val map : ('a -> 'b) -> 'a t -> 'b t
type 'a final_state =
| |
Stopped |
| |
Done of 'a |
| |
Fail of exn |
type
internal type for a list of tasks to run
type 'a on_res_callback = tasks_bag -> 'a final_state -> unit
callback executed once a future is done
val make : ?on_res:'a on_res_callback list ->
(unit -> 'a) -> 'a t
val stop : 'a t -> unit
val is_done : 'a t -> bool
val on_res : 'a t -> f:'a on_res_callback -> unit
val get : 'a t -> 'a final_state