+ AuditorDenominationKey

src/api.ml

@@ -840,3 +840,20 @@ module AggregateTransferFee = struct
     |> mem "sig" MasterWireFeePS.jsont ~enc:sig_
     |> finish
 end
+
+module AuditorDenominationKey = struct
+  type t = {
+    denom_pub_h: HashCode.t;
+    auditor_sig: ExchangeKeyValidityPS.t;
+  }
+
+  let jsont =
+    let make denom_pub_h auditor_sig = { denom_pub_h; auditor_sig } in
+    let denom_pub_h v = v.denom_pub_h in
+    let auditor_sig v = v.auditor_sig in
+    let open Jsont.Object in
+    map ~kind:"AuditorDenominationKey" make
+    |> mem "denom_pub_h" HashCode.jsont ~enc:denom_pub_h
+    |> mem "auditor_sig" ExchangeKeyValidityPS.jsont ~enc:auditor_sig
+    |> finish
+end