refacto verify_denomination/signkey
This commit is contained in:
parent
d2e546571c
commit
edd2646a86
6 changed files with 120 additions and 170 deletions
25
src/api.ml
25
src/api.ml
|
|
@ -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 =
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue