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

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 denom_secmod_public_key = secmod_denom.sm_key.pub in
-  let signkey_secmod_public_key = secmod_signkey.secmod_key.pub in
+  let signkey_secmod_public_key = secmod_signkey.sm_key.pub in
   FutureKeysResponse.
     {
       future_denoms;