From fc5cec1d24d68064388340d9e8c4e608efeda6fd Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Sun, 19 Oct 2025 02:07:08 +0200
Subject: [PATCH]

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

diff --git a/src/devices.ml b/src/devices.ml
index 02ecad17..bf79bf01 100644
--- a/src/devices.ml
+++ b/src/devices.ml
@@ -2,30 +2,30 @@
 
 module Secmod_signkey = struct
   type t = {
-    secmod_key: Signkey.t;
+    sm_key: Signkey.t;
     keys: Signkey.t list;
   }
 
   let v =
     let finally _key = () in
     Vif.Device.v ~name:"secmod_signkey" ~finally [] @@ fun () ->
-    let secmod_key = Signkey.generate () in
+    let sm_key = Signkey.generate () in
     let keys = [ Signkey.generate () ] in
-    { secmod_key; keys }
+    { sm_key; keys }
 end
 
 module Secmod_denom = struct
   type t = {
-    secmod_key: Signkey.t;
+    sm_key: Signkey.t;
     keys: Denomination.t list;
   }
 
   let v =
     let finally _key = () in
     Vif.Device.v ~name:"secmod_denom" ~finally [] @@ fun () ->
-    let secmod_key = Signkey.generate () in
+    let sm_key = Signkey.generate () in
     let keys = List.map Denomination.make Config.coins in
-    { secmod_key; keys }
+    { sm_key; keys }
 end
 
 let secmod_signkey = Secmod_signkey.v
diff --git a/src/management.ml b/src/management.ml
index 23aea7fb..6978ff93 100644
--- a/src/management.ml
+++ b/src/management.ml
@@ -94,16 +94,16 @@ let mk_future_keys_response (secmod_signkey : Secmod_signkey.t)
   let future_denoms =
     secmod_denom.keys
     |> List.filter (fun k -> Option.is_none k.Denomination.master_sig)
-    |> List.map (mk_future_denom secmod_denom.secmod_key.Signkey.sign)
+    |> List.map (mk_future_denom secmod_denom.sm_key.Signkey.sign)
   in
   let future_signkeys =
     secmod_signkey.keys
     |> List.filter (fun k -> Option.is_none k.Signkey.master_sig)
-    |> List.map (mk_future_signkey secmod_signkey.secmod_key.sign)
+    |> List.map (mk_future_signkey secmod_signkey.sm_key.sign)
   in
   let master_pub = Config.Exchange.master_public_key in
-  let denom_secmod_public_key = secmod_denom.secmod_key.pub in
-  let signkey_secmod_public_key = secmod_signkey.secmod_key.pub in
+  let denom_secmod_public_key = secmod_denom.sm_key.pub in
+  let signkey_secmod_public_key = secmod_signkey.sm_key.pub in
   FutureKeysResponse.
     {
       future_denoms;