sig
  type t
  val start : Store.t -> t Lwt.t
  val stop : t -> unit Lwt.t
  val list : t -> Job.t list
  val peek : t -> Host.t -> Job.t option
  val peek_s : t -> Host.t -> Job.t Lwt.t
end