X-Git-Url: https://git.xandkar.net/?p=khatus.git;a=blobdiff_plain;f=x3%2Fsrc%2Flib%2Fkhatus_msg.mli;fp=x3%2Fsrc%2Flib%2Fkhatus_msg.mli;h=358d0ede8d31d0d2acafb80bc015ecf7b22790a0;hp=0000000000000000000000000000000000000000;hb=499c58a269a00e031302938b5a8f006f23aae451;hpb=4c703fadbdc17d1753d16841582636598f862416

diff --git a/x3/src/lib/khatus_msg.mli b/x3/src/lib/khatus_msg.mli
new file mode 100644
index 0000000..358d0ed
--- /dev/null
+++ b/x3/src/lib/khatus_msg.mli
@@ -0,0 +1,23 @@
+type content =
+  | Alert of {priority : [`low | `med | `hi]; subject : string; body : string}
+  | Data of {key : string list; value : string}
+  | Cache of
+      { mtime : Khatus_time.t
+      ; node  : string
+      ; modul : string
+      ; key   : string list
+      ; value : string
+      }
+  | Error of string
+  | Log of {location : string; level : [`info | `error]; msg : string}
+  | Status_bar of string
+
+type t =
+  {node : string; modul : string; content : content}
+
+type 'a data_handler =
+  (node:string -> modul:string -> key:string list -> value:string -> 'a)
+
+val to_string : t -> string
+
+val handle_data : t -> f:'a data_handler -> otherwise:'a -> 'a