17 lines
385 B
OCaml
17 lines
385 B
OCaml
|
(** Simplified Async/Lwt like monad *)
|
||
|
|
|
||
|
|
type 'a t
|
||
|
|
|
||
|
|
val return : 'a -> 'a t
|
||
|
|
val (>>=) : 'a t -> ('a -> 'b t) -> 'b t
|
||
|
|
|
||
|
|
val all : 'a t list -> 'a list t
|
||
|
|
val all_unit : unit t list -> unit t
|
||
|
|
|
||
|
|
(** [run ?stdout_to prog args] spawns a sub-process and wait for its termination *)
|
||
|
|
val run : ?stdout_to:string -> string -> string list -> unit t
|
||
|
|
|
||
|
|
module Scheduler : sig
|
||
|
|
val go : 'a t -> 'a
|
||
|
|
end
|