Db.EVENTS
type t = {
name : string;
args : string;
time : int64;
tr_lt : int64;
}
val list : ?serial:int32 -> unit -> (int32 * string * t) list Lwt.t
val add : msg_id:string -> t -> unit Lwt.t
val mem : msg_id:string -> bool Lwt.t