+ ..

src/management.ml

@@ -70,23 +70,19 @@ module Keys_get = struct
       Secmod_signkey.get_signkeys sm_signkey
       |> List.filter (fun k -> Option.is_none k.Signkey.master_sig)
       |> List.map (fun signkey ->
-          let sm_signkey_priv =
-            (Secmod_signkey.get_sm_key sm_signkey).Signkey.priv
-          in
+          let sm_signkey_priv = Secmod_signkey.get_sm_key_priv sm_signkey in
           mk_future_signkey ~sm_signkey_priv signkey)
     in
     let future_denoms =
       Secmod_denom.get_denoms sm_denom
       |> List.filter (fun k -> Option.is_none k.Denomination.master_sig)
       |> List.map (fun denom ->
-          let sm_denom_priv = (Secmod_denom.get_sm_key sm_denom).Signkey.priv in
+          let sm_denom_priv = Secmod_denom.get_sm_key_priv sm_denom in
           mk_future_denom ~sm_denom_priv denom)
     in
     let master_pub = Config.Exchange.master_public_key in
-    let denom_secmod_public_key = (Secmod_denom.get_sm_key sm_denom).pub in
-    let signkey_secmod_public_key =
-      (Secmod_signkey.get_sm_key sm_signkey).pub
-    in
+    let denom_secmod_public_key = Secmod_denom.get_sm_key_pub sm_denom in
+    let signkey_secmod_public_key = Secmod_signkey.get_sm_key_pub sm_signkey in
     FutureKeysResponse.
       {
         future_denoms;