From bf221bb35224ff70b24b9d02e7dd82f17a9fd4b2 Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Sun, 30 Nov 2025 23:02:49 +0100
Subject: [PATCH]

---
 src/bin_signature.ml |  2 ++
 src/management.ml    | 10 ++++++----
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/bin_signature.ml b/src/bin_signature.ml
index 84fdbac4..901b6e8e 100644
--- a/src/bin_signature.ml
+++ b/src/bin_signature.ml
@@ -95,6 +95,8 @@ module DenominationKeyAnnouncementPS = struct
     duration_withdraw: TimeRelativeNBO.t;
   }
 
+  type s = Crypto.EddsaSignature.t
+
   let bin =
     let open Bin in
     Purpose.make_bin Taler_signatures.sm_rsa_denomination_key @@ fun purpose ->
diff --git a/src/management.ml b/src/management.ml
index c338635d..1b9120a9 100644
--- a/src/management.ml
+++ b/src/management.ml
@@ -31,8 +31,9 @@ let mk_future_denom denom_key_signf
     let duration_withdraw =
       Timestamp.diff stamp_start stamp_expire_withdraw |> Timestamp.of_span_exn
     in
-    let ps = { h_denom_pub; h_section_name; anchor_time; duration_withdraw } in
-    ps |> Bin.to_string bin |> denom_key_signf
+    { h_denom_pub; h_section_name; anchor_time; duration_withdraw }
+    |> Bin.to_string bin
+    |> denom_key_signf
   in
   FutureDenom.
     {
@@ -60,8 +61,9 @@ let mk_future_signkey signkey_signf
     let duration =
       Timestamp.diff stamp_start stamp_expire |> Timestamp.of_span_exn
     in
-    let ps = { exchange_pub; anchor_time; duration } in
-    ps |> Bin.to_string bin |> signkey_signf
+    { exchange_pub; anchor_time; duration }
+    |> Bin.to_string bin
+    |> signkey_signf
   in
   FutureSignKey.
     { key= pub; stamp_start; stamp_expire; stamp_end; signkey_secmod_sig }