Module Job

module Job: sig .. end

type 'execution_context t 

include Invariant.S1

val create : 'execution_context -> ('a -> unit) -> 'a -> 'execution_context t

val do_nothing : 'execution_context -> 'execution_context t

val execution_context : 'execution_context t -> 'execution_context

val run : 'a t -> unit

val sexp_of_t : ('execution_context -> Sexplib.Sexp.t) ->
       'execution_context t -> Sexplib.Sexp.t