src/http_info.ml

@@ -104,16 +104,13 @@ let mk_keys ~db_conn (module Keys : Keys.S) ~last_issue_date =
 
   (* ! depends on denominations order *)
   let exchange_sig =
-    let hc =
-      denominations
-      |> List.map (fun (DenomGroup.Rsa g) -> g.RsaDenomGroup.denoms)
-      |> List.concat_map (List.map (fun dn -> dn.RsaDenom.master_sig))
-      |> List.map Signatures.DenominationKeyValidity.to_octets
-      |> String.concat ""
-      |> Hash.H64.hash
-    in
     let open Signatures.ExchangeKeySet in
-    signf (Keys.sign exchange_pub) R.{ list_issue_date; hc }
+    signf (Keys.sign exchange_pub)
+      R.
+        {
+          list_issue_date;
+          hc= Denomination.hash_over_master_sigs denominations;
+        }
   in
 
   let recoup = (* /recoup *) [] in