sig
  type run_parameters
  val name : string
  val serialize : run_parameters -> string
  val deserialize_exn : string -> run_parameters
  val start :
    run_parameters ->
    (run_parameters, Host_io.Error.classified) Unix_io.Deferred_result.t
  val update :
    run_parameters ->
    ([ `Failed of run_parameters * string
     | `Still_running of run_parameters
     | `Succeeded of run_parameters ], Host_io.Error.classified)
    Unix_io.Deferred_result.t
  val kill :
    run_parameters ->
    ([ `Killed of run_parameters ], Host_io.Error.classified)
    Unix_io.Deferred_result.t
  val log :
    run_parameters -> (string * Ketrew_pure.Internal_pervasives.Log.t) list
  val additional_queries :
    run_parameters -> (string * Ketrew_pure.Internal_pervasives.Log.t) list
  val query :
    run_parameters ->
    string ->
    (string, Ketrew_pure.Internal_pervasives.Log.t) Unix_io.Deferred_result.t
  val create :
    ?host:Ketrew_pure.Host.t ->
    ?queue:string ->
    ?name:string ->
    ?wall_limit:[ `Hours of float ] ->
    ?processors:int ->
    ?email_user:[ `Always of string | `Never ] ->
    ?shell:string ->
    Ketrew_pure.Program.t -> [> `Long_running of string * string ]
end