+ denom/signkey revocation signature

src/api.ml

@@ -316,3 +316,27 @@ module MasterSignatures = struct
     |> mem "signkey_sigs" (Jsont.list SignKeySignature.jsont) ~enc:signkey_sigs
     |> finish
 end
+
+module DenomRevocationSignature = struct
+  type t = { master_sig: MasterDenominationKeyRevocationPS.t }
+
+  let jsont =
+    let make master_sig = { master_sig } in
+    let enc v = v.master_sig in
+    let open Jsont.Object in
+    map ~kind:"DenomRevocationSignature" make
+    |> mem "master_sig" MasterDenominationKeyRevocationPS.jsont ~enc
+    |> finish
+end
+
+module SignkeyRevocationSignature = struct
+  type t = { master_sig: MasterSigningKeyRevocationPS.t }
+
+  let jsont =
+    let make master_sig = { master_sig } in
+    let enc v = v.master_sig in
+    let open Jsont.Object in
+    map ~kind:"SignkeyRevocationSignature" make
+    |> mem "master_sig" MasterSigningKeyRevocationPS.jsont ~enc
+    |> finish
+end