+ WireTeardownMessage

src/api.ml

@@ -523,3 +523,26 @@ module WireSetupMessage = struct
     |> mem "priority" (Jsont.option Jsont.int) ~enc:priority
     |> finish
 end
+
+module WireTeardownMessage = struct
+  type t = {
+    payto_uri: string;
+    master_sig_del: MasterDelWirePS.t;
+    (* TODO time monotonic *)
+    validity_end: Timestamp.t;
+  }
+
+  let jsont =
+    let make payto_uri master_sig_del validity_end =
+      { payto_uri; master_sig_del; validity_end }
+    in
+    let payto_uri v = v.payto_uri in
+    let master_sig_del v = v.master_sig_del in
+    let validity_end v = v.validity_end in
+    let open Jsont.Object in
+    map ~kind:"WireTeardownMessage" make
+    |> mem "payto_uri" Jsont.string ~enc:payto_uri
+    |> mem "master_sig_del" MasterDelWirePS.jsont ~enc:master_sig_del
+    |> mem "validity_end" Timestamp.jsont ~enc:validity_end
+    |> finish
+end