From dcfdf19737422853a6d71a6ebdb0a2e2a758e50c Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Fri, 17 Oct 2025 17:32:06 +0200
Subject: [PATCH]

---
 src/management.ml | 30 ++++++++++++++----------------
 1 file changed, 14 insertions(+), 16 deletions(-)

diff --git a/src/management.ml b/src/management.ml
index b27238c9..ae8750be 100644
--- a/src/management.ml
+++ b/src/management.ml
@@ -75,25 +75,23 @@ let mk_future_denom denom_secmod_sign_f
 
 let mk_future_sign_key signkey_secmod_sign_f
     ({ pub; sign= _; stamp_start; stamp_expire; stamp_end } : Secmod_keys.t) =
-  let exchange_pub =
-    Binary_formats.ExchangePublicKeyP.{ v= { v= EddsaPublicKey.to_octets pub } }
-  in
   let signkey_secmod_sig =
     let open Binary_formats in
-    let ps =
-      let anchor_time =
-        TimeAbsoluteNBO.{ v= Util.ptime_to_int64_us stamp_start }
-      in
-      let duration =
-        let v =
-          Ptime.diff stamp_start stamp_expire
-          |> Util.ptime_of_span_exn
-          |> Util.ptime_to_int64_us
-        in
-        TimeRelativeNBO.{ v }
-      in
-      SigningKeyAnnouncementPS.{ exchange_pub; anchor_time; duration }
+    let exchange_pub =
+      ExchangePublicKeyP.{ v= { v= EddsaPublicKey.to_octets pub } }
     in
+    let anchor_time =
+      TimeAbsoluteNBO.{ v= Util.ptime_to_int64_us stamp_start }
+    in
+    let duration =
+      let v =
+        Ptime.diff stamp_start stamp_expire
+        |> Util.ptime_of_span_exn
+        |> Util.ptime_to_int64_us
+      in
+      TimeRelativeNBO.{ v }
+    in
+    let ps = SigningKeyAnnouncementPS.{ exchange_pub; anchor_time; duration } in
     ps |> Bin.to_string SigningKeyAnnouncementPS.bin |> signkey_secmod_sign_f
   in
   FutureSignKey.