From 1830f25ca609b73ca047896dc735e5fa10065da1 Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Thu, 4 Dec 2025 18:04:15 +0100
Subject: [PATCH] + SignKey

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

diff --git a/src/api.ml b/src/api.ml
index 6ad594d8..f6809b39 100644
--- a/src/api.ml
+++ b/src/api.ml
@@ -884,3 +884,31 @@ module AuditorKeys = struct
          ~enc:denomination_keys
     |> finish
 end
+
+module SignKey = struct
+  type t = {
+    key: EddsaPublicKey.t;
+    stamp_start: Timestamp.t;
+    stamp_expire: Timestamp.t;
+    stamp_end: Timestamp.t;
+    master_sig: ExchangeSigningKeyValidityPS.t;
+  }
+
+  let jsont =
+    let make key stamp_start stamp_expire stamp_end master_sig =
+      { key; stamp_start; stamp_expire; stamp_end; master_sig }
+    in
+    let key v = v.key in
+    let stamp_start v = v.stamp_start in
+    let stamp_expire v = v.stamp_expire in
+    let stamp_end v = v.stamp_end in
+    let master_sig v = v.master_sig in
+    let open Jsont.Object in
+    map ~kind:"SignKey" make
+    |> mem "key" EddsaPublicKey.jsont ~enc:key
+    |> mem "stamp_start" Timestamp.jsont ~enc:stamp_start
+    |> mem "stamp_expire" Timestamp.jsont ~enc:stamp_expire
+    |> mem "stamp_end" Timestamp.jsont ~enc:stamp_end
+    |> mem "master_sig" ExchangeSigningKeyValidityPS.jsont ~enc:master_sig
+    |> finish
+end