package sihl
Module Contract.QueueSource
Source
val pp_instance_status :
Ppx_deriving_runtime.Format.formatter ->
instance_status ->
Ppx_deriving_runtime.unitSource
type instance = {id : string;name : string;input : string;tries : int;next_run_at : Ptime.t;max_tries : int;status : instance_status;last_error : string option;last_error_at : Ptime.t option;
}Source
val pp_instance :
Ppx_deriving_runtime.Format.formatter ->
instance ->
Ppx_deriving_runtime.unitSource
type 'a job = {name : string;encode : 'a -> string;decode : string -> ('a, string) Result.t;handle : 'a -> (unit, string) Result.t Lwt.t;failed : string -> instance -> unit Lwt.t;max_tries : int;retry_delay : Ptime.Span.t;
}Source
val pp_job :
'a. (Ppx_deriving_runtime.Format.formatter ->
'a ->
Ppx_deriving_runtime.unit) ->
Ppx_deriving_runtime.Format.formatter ->
'a job ->
Ppx_deriving_runtime.unitSource
val show_job :
'a. (Ppx_deriving_runtime.Format.formatter ->
'a ->
Ppx_deriving_runtime.unit) ->
'a job ->
Ppx_deriving_runtime.stringSource
type job' = {name : string;handle : string -> (unit, string) Result.t Lwt.t;failed : string -> instance -> unit Lwt.t;max_tries : int;retry_delay : Ptime.Span.t;
}