lib/khatus_msg.mli

   1 type content =
   2   | Alert of {priority : [`low | `med | `hi]; subject : string; body : string}
   3   | Data of {key : string list; value : string}
   4   | Cache of
   5       { mtime : Khatus_time.t
   6       ; node  : string
   7       ; modul : string
   8       ; key   : string list
   9       ; value : string
  10       }
  11   | Error of string
  12   | Log of {location : string; level : [`info | `error]; msg : string}
  13   | Status_bar of string
  14
  15 type t =
  16   {node : string; modul : string; content : content}
  17
  18 val to_string : t -> string
  19
  20 val next_time : t -> node:string -> time:Khatus_time.t -> Khatus_time.t