refacto verify_denomination/signkey

This commit is contained in:
swrup 2026-02-27 20:28:56 +01:00 committed by Swrup
parent cbf54c16df
commit 5313ada570
6 changed files with 120 additions and 170 deletions

View file

@ -612,6 +612,31 @@ module GlobalFees = struct
master_sig: GlobalFees.t;
}
let verify_global_fees ~key
{
start_date;
end_date;
history_fee;
account_fee;
purse_fee;
history_expiration;
purse_account_limit;
purse_timeout;
master_sig;
} =
let open Signatures.GlobalFees in
verify key master_sig
{
start_date;
end_date;
purse_timeout;
history_expiration;
history_fee;
account_fee;
purse_fee;
purse_account_limit;
}
let jsont =
let make start_date end_date history_fee account_fee purse_fee
history_expiration purse_account_limit purse_timeout master_sig =