+ AuditorTeardownMessage

src/api.ml

@@ -370,3 +370,22 @@ module AuditorSetupMessage = struct
     |> mem "validity_start" Timestamp.jsont ~enc:validity_start
     |> finish
 end
+
+module AuditorTeardownMessage = struct
+  type t = {
+    master_sig: MasterDelAuditorPS.t;
+    (* TODO time
+       something about using monotonic system time here! *)
+    validity_end: Timestamp.t;
+  }
+
+  let jsont =
+    let make master_sig validity_end = { master_sig; validity_end } in
+    let master_sig v = v.master_sig in
+    let validity_end v = v.validity_end in
+    let open Jsont.Object in
+    map ~kind:"AuditorTeardownMessage" make
+    |> mem "master_sig" MasterDelAuditorPS.jsont ~enc:master_sig
+    |> mem "validity_end" Timestamp.jsont ~enc:validity_end
+    |> finish
+end