From 2570b162dbff5353189ac1febddbd1f4b43fb8d0 Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Thu, 4 Dec 2025 18:06:53 +0100
Subject: [PATCH] + RecoupDenoms

---
 src/api.ml | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/api.ml b/src/api.ml
index f6809b39..045aa4b4 100644
--- a/src/api.ml
+++ b/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