+ RecoupDenoms

src/api.ml

@@ -912,3 +912,15 @@ module SignKey = struct
     |> mem "master_sig" ExchangeSigningKeyValidityPS.jsont ~enc:master_sig
     |> finish
 end
+
+module RecoupDenoms = struct
+  type t = { h_denom_pub: HashCode.t }
+
+  let jsont =
+    let make h_denom_pub = { h_denom_pub } in
+    let h_denom_pub v = v.h_denom_pub in
+    let open Jsont.Object in
+    map ~kind:"RecoupDenoms" make
+    |> mem "h_denom_pub" HashCode.jsont ~enc:h_denom_pub
+    |> finish
+end