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

Browse source
This commit is contained in:
swrup 2026-02-05 19:26:59 +01:00
parent f93f03f7b2
commit 5abb872d1f
12 changed files with 61 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

14
tools/offline_impl.ml
View file

@ -64,7 +64,7 @@ let revoke_denom ~output ~master_key ~h_denom =
let* h_denom_pub = DenominationHash.of_b32 h_denom in
let denom_revoke =
let master_sig =
let open Bin_sig.MasterDenominationKeyRevocation in
let open Signatures.MasterDenominationKeyRevocation in
sign_f ~f:(Crypto.EddsaSignature.sign ~key) { h_denom_pub }
in
Api.DenomRevocationSignature.{ master_sig }
@ -77,7 +77,7 @@ let revoke_signkey ~output ~master_key ~signkey =
let* key = read_master_key_file master_key in
let signkey_revoke =
let master_sig =
let open Bin_sig.MasterSigningKeyRevocation in
let open Signatures.MasterSigningKeyRevocation in
sign_f ~f:(Crypto.EddsaSignature.sign ~key) { exchange_pub= signkey }
in
Api.SignkeyRevocationSignature.{ master_sig }
@ -100,7 +100,7 @@ let global_fees ~output ~master_key ~start_date ~end_date ~history_fee
| true -> Ok (Int32.of_int purse_account_limit)
in
let master_sig =
let open Bin_sig.GlobalFees in
let open Signatures.GlobalFees in
(* TODO KYC *)
let kyc_timeout = Time.Relative.forever in
let kyc_fee = Amount.dummy_value in
@ -141,7 +141,7 @@ let enable_auditor ~output ~master_key ~auditor_url ~auditor_name ~auditor_pub
let open Crypto in
let* key = read_master_key_file master_key in
let master_sig =
let open Bin_sig.MasterAddAuditor in
let open Signatures.MasterAddAuditor in
sign_f ~f:(EddsaSignature.sign ~key)
{
start_date= validity_start;
@ -161,7 +161,7 @@ let disable_auditor ~output ~master_key ~auditor_pub ~validity_end =
let open Crypto in
let* key = read_master_key_file master_key in
let master_sig =
let open Bin_sig.MasterDelAuditor in
let open Signatures.MasterDelAuditor in
sign_f ~f:(EddsaSignature.sign ~key) { end_date= validity_end; auditor_pub }
in
let v = Api.AuditorTeardownMessage.{ master_sig; validity_end } in
@ -174,7 +174,7 @@ let wire_fee ~output ~master_key ~wire_method ~fee_start ~fee_end ~closing_fee
let open Crypto in
let* key = read_master_key_file master_key in
let master_sig_wire =
let open Bin_sig.MasterWireFee in
let open Signatures.MasterWireFee in
sign_f ~f:(EddsaSignature.sign ~key)
{
h_wire_method= Hash.Cstring.H64.hash wire_method;
@ -204,7 +204,7 @@ let drain ~output ~master_key ~debit_account_section ~credit_payto_uri ~wtid
let open Crypto in
let* key = read_master_key_file master_key in
let master_sig =
let open Bin_sig.MasterDrainProfit in
let open Signatures.MasterDrainProfit in
sign_f ~f:(EddsaSignature.sign ~key)
{
wtid;