Source file `contract_schedule.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
let name = "schedule"

module type Sig = sig
  (** [schedule ?ctx t] runs a schedule [t].

      Call the returned function to cancel a schedule. *)
  val schedule
    :  ?ctx:(string * string) list
    -> Core_schedule.t
    -> Core_schedule.stop_schedule

  val register
    :  ?schedules:Core_schedule.t list
    -> unit
    -> Core_container.Service.t

  include Core_container.Service.Sig
end