src/devices.ml

@@ -2,9 +2,9 @@
    better types to not mixup keys maybe
    .. *)
 
-let signkey = Secmod_keys.make ~name:"signkey"
+let signkey = Signkey.make ~name:"signkey"
-let online_key = Secmod_keys.make ~name:"online_key"
+let online_key = Signkey.make ~name:"online_key"
-let denom_key = Secmod_keys.make ~name:"denom_key"
+let denom_key = Signkey.make ~name:"denom_key"
 
 let denominations =
   let finally _key = () in

src/management.ml

@@ -58,7 +58,7 @@ let mk_future_denom denom_key_signf
     }
 
 let mk_future_signkey signkey_signf
-    ({ pub; sign= _; stamp_start; stamp_expire; stamp_end } : Secmod_keys.t) =
+    ({ pub; sign= _; stamp_start; stamp_expire; stamp_end } : Signkey.t) =
   let signkey_secmod_sig =
     let open Binary_formats in
     let exchange_pub = pub in
@@ -88,11 +88,11 @@ let mk_future_signkey signkey_signf
 let mk_future_keys_response ~signkey ~online_key ~denom_key ~denominations =
   let future_denoms =
     (* todo: "only those lacking a master signature" *)
-    List.map (mk_future_denom denom_key.Secmod_keys.sign) denominations
+    List.map (mk_future_denom denom_key.Signkey.sign) denominations
   in
   let future_signkeys =
     (* todo: "only those lacking a master signature" *)
-    List.map (mk_future_signkey signkey.Secmod_keys.sign) [ online_key ]
+    List.map (mk_future_signkey signkey.Signkey.sign) [ online_key ]
   in
   let master_pub = Config.Exchange.master_public_key in
   let denom_secmod_public_key = denom_key.pub in