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

ok compile

Browse source
This commit is contained in:
swrup 2026-02-21 16:02:32 +01:00
parent c42636b998
commit bded77a939
5 changed files with 38 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

31
src/http_management.ml
View file

@ -51,7 +51,7 @@ module Keys_post = struct
denom_hash;
}
in
verify_f ~f:(Crypto.EddsaSignature.verify ~key:Keys.master_pub) master_sig r
verify Keys.master_pub master_sig r
let verify_denom_sigs (module Keys : Keys.S) denom_sigs =
let* fdn_l = Keys.future_denominations () in
@ -86,7 +86,7 @@ module Keys_post = struct
signkey_pub= key;
}
in
verify_f ~f:(Crypto.EddsaSignature.verify ~key:Keys.master_pub) master_sig r
verify Keys.master_pub master_sig r
let verify_signkey_sigs (module Keys : Keys.S) signkey_sigs =
let* fsk_l = Keys.future_signkeys () in
@ -137,9 +137,7 @@ module Denom_revoke = struct
let verify (module Keys : Keys.S) h_denom_pub
DenomRevocationSignature.{ master_sig } =
let open Signatures.MasterDenominationKeyRevocation in
verify_f
~f:(Crypto.EddsaSignature.verify ~key:Keys.master_pub)
master_sig { h_denom_pub }
verify Keys.master_pub master_sig { h_denom_pub }
let do_ (module Keys : Keys.S) h_denom_pub
DenomRevocationSignature.{ master_sig } =
@ -165,7 +163,7 @@ module Signkey_revoke = struct
let verify (module Keys : Keys.S) exchange_pub
SignkeyRevocationSignature.{ master_sig } =
let open Signatures.MasterSigningKeyRevocation in
verify_f ~f:Keys.verify_with_master_key master_sig { exchange_pub }
verify Keys.master_pub master_sig { exchange_pub }
let do_ (module Keys : Keys.S) exchange_pub
SignkeyRevocationSignature.{ master_sig } =
@ -198,7 +196,7 @@ module Auditors = struct
validity_start;
} =
let open Signatures.MasterAddAuditor in
verify_f ~f:Keys.verify_with_master_key master_sig
verify Keys.master_pub master_sig
{
start_date= validity_start;
auditor_pub;
@ -245,8 +243,7 @@ module Auditors_disable = struct
let verify (module Keys : Keys.S) auditor_pub
AuditorTeardownMessage.{ master_sig; validity_end } =
let open Signatures.MasterDelAuditor in
verify_f ~f:Keys.verify_with_master_key master_sig
{ end_date= validity_end; auditor_pub }
verify Keys.master_pub master_sig { end_date= validity_end; auditor_pub }
let do_ ~db_conn auditor_pub
AuditorTeardownMessage.{ master_sig= _; validity_end } =
@ -294,7 +291,7 @@ module Wire_fee = struct
wire_fee;
} =
let open Signatures.MasterWireFee in
verify_f ~f:Keys.verify_with_master_key master_sig_wire
verify Keys.master_pub master_sig_wire
{
h_wire_method= Hash.Cstring.H64.hash wire_method;
start_date= fee_start;
@ -356,7 +353,7 @@ module Global_fees = struct
master_sig;
} =
let open Signatures.GlobalFees in
verify_f ~f:Keys.verify_with_master_key master_sig
verify Keys.master_pub master_sig
{
start_date;
end_date;
@ -429,7 +426,7 @@ module Wire = struct
let debit_restrictions = "" in
let* () =
let open Signatures.MasterWireDetails in
verify_f ~f:Keys.verify_with_master_key master_sig_wire
verify Keys.master_pub master_sig_wire
{
h_wire_details= FullPaytoHash.hash payto_uri;
h_conversion_url= Hash.Cstring.H64.hash conversion_url;
@ -439,7 +436,7 @@ module Wire = struct
in
let* () =
let open Signatures.MasterAddWire in
verify_f ~f:Keys.verify_with_master_key master_sig_add
verify Keys.master_pub master_sig_add
{
start_date= validity_start;
h_wire= FullPaytoHash.hash payto_uri;
@ -495,7 +492,7 @@ module Wire_disable = struct
let verify (module Keys : Keys.S)
WireTeardownMessage.{ payto_uri; master_sig_del; validity_end } =
let open Signatures.MasterDelWire in
verify_f ~f:Keys.verify_with_master_key master_sig_del
verify Keys.master_pub master_sig_del
{ end_date= validity_end; h_wire= FullPaytoHash.hash payto_uri }
let do_ ~db_conn
@ -538,7 +535,7 @@ module Drain = struct
amount;
} =
let open Signatures.MasterDrainProfit in
verify_f ~f:Keys.verify_with_master_key master_sig
verify Keys.master_pub master_sig
{
wtid;
date;
@ -579,7 +576,7 @@ module AmlOfficer = struct
} =
let open Signatures.MasterAmlOfficerStatus in
let is_active = match is_active with true -> 1_l | false -> 0_l in
verify_f ~f:Keys.verify_with_master_key master_sig
verify Keys.master_pub master_sig
{
change_date;
officer_pub;
@ -619,7 +616,7 @@ module Partners = struct
wad_fee;
} =
let open Signatures.PartnerConfiguration in
verify_f ~f:Keys.verify_with_master_key master_sig
verify Keys.master_pub master_sig
{
partner_pub;
start_date;