sig
  type run_parameters
  val name : string
  val serialize : run_parameters -> string
  val deserialize_exn : string -> run_parameters
  val start :
    run_parameters ->
    (run_parameters, Ketrew_long_running.error)
    Ketrew_unix_io.Deferred_result.t
  val update :
    run_parameters ->
    ([ `Failed of run_parameters * string
     | `Still_running of run_parameters
     | `Succeeded of run_parameters ], Ketrew_long_running.error)
    Ketrew_unix_io.Deferred_result.t
  val kill :
    run_parameters ->
    ([ `Killed of run_parameters ], Ketrew_long_running.error)
    Ketrew_unix_io.Deferred_result.t
  val log : run_parameters -> (string * Ketrew_pervasives.Log.t) list
  val additional_queries :
    run_parameters -> (string * Ketrew_pervasives.Log.t) list
  val query :
    run_parameters ->
    string ->
    (string, Ketrew_pervasives.Log.t) Ketrew_unix_io.Deferred_result.t
  val create :
    ?host:Ketrew_host.t ->
    ?queue:string ->
    ?name:string ->
    ?wall_limit:string ->
    ?processors:[ `Min of int | `Min_max of int * int ] ->
    ?project:string ->
    Ketrew_program.t -> [> `Long_running of string * string ]
end