Module Async_smtp__Message_spool.On_disk_monitor.Daemon

type monitor = t
type t = {
check_every : Core.Time.Span.t;
alert_after_cycles : int;
}
val create : ?⁠check_every:Core.Time.Span.t ‑> ?⁠alert_after_cycles:int ‑> unit ‑> t
val param : t Async.Command.Param.t
val start : t ‑> monitor:monitor ‑> f:(Event.t ‑> unit Async.Deferred.t) ‑> unit