different verify for master sigs

src/keys.ml

@@ -12,11 +12,6 @@ module Make (Conn : Pg.CONN) = struct
 
   let conn = (module Conn : Pg.CONN)
 
-  (* - *)
-  let master_pub = Config.Exchange.master_public_key
-  let secmod_eddsa_pub = Sm_eddsa.sm_pub
-  let secmod_rsa_pub = Sm_rsa.sm_pub
-
   (* TODO
      error "key not found", either:
        - we tried to sign with a key that is not ours
@@ -173,6 +168,19 @@ module Make (Conn : Pg.CONN) = struct
     in
     List.filter_map Fun.id l
 
+  let make_future_keys_response () =
+    let* future_signkeys = future_signkeys () in
+    let* future_denoms = future_denominations () in
+    Ok
+      Api.FutureKeysResponse.
+        {
+          future_denoms;
+          future_signkeys;
+          master_pub= Config.Exchange.master_public_key;
+          denom_secmod_public_key= Sm_rsa.sm_pub;
+          signkey_secmod_public_key= Sm_eddsa.sm_pub;
+        }
+
   let sk_of_future_sk future_sk master_sig =
     let Api.FutureSignKey.
           { key; stamp_start; stamp_expire; stamp_end; signkey_secmod_sig= _ } =