swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add test/validate_response.ml

Browse source
This commit is contained in:
swrup 2026-02-27 17:49:54 +01:00 • committed by Swrup
parent b984190d6d
commit cbf54c16df
6 changed files with 277 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/http_info.ml
View file

@ -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