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

rename signatures.ml

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

20
src/pg_type.ml
View file

@ -47,8 +47,8 @@ include struct
end
let signkey_data =
let master_sig = Bin_sig.ExchangeSigningKeyValidity.caqti in
let revoked_sig = option Bin_sig.MasterSigningKeyRevocation.caqti in
let master_sig = Signatures.ExchangeSigningKeyValidity.caqti in
let revoked_sig = option Signatures.MasterSigningKeyRevocation.caqti in
custom
~encode:(fun
Signkey_data.
@ -72,8 +72,8 @@ let signkey_data =
(t6 eddsa_pub time time time master_sig revoked_sig)
let denom_data =
let master_sig = Bin_sig.DenominationKeyValidity.caqti in
let revoked_sig = option Bin_sig.MasterDenominationKeyRevocation.caqti in
let master_sig = Signatures.DenominationKeyValidity.caqti in
let revoked_sig = option Signatures.MasterDenominationKeyRevocation.caqti in
custom
~encode:(fun
Denom_data.
@ -151,7 +151,7 @@ let account_restrictions =
string
let global_fee =
let master_sig = Bin_sig.GlobalFees.caqti in
let master_sig = Signatures.GlobalFees.caqti in
custom
~encode:(fun
GlobalFees.
@ -204,7 +204,7 @@ let global_fee =
t9 time time amount amount amount time_span int32 time_span master_sig)
let aggregate_transfer_fee =
let master_sig = Bin_sig.MasterWireFee.caqti in
let master_sig = Signatures.MasterWireFee.caqti in
Caqti_type.custom
~encode:(fun
AggregateTransferFee.
@ -217,7 +217,7 @@ let aggregate_transfer_fee =
Caqti_type.(t5 amount amount time time master_sig)
let exchange_wire_account =
let master_sig = Bin_sig.MasterWireDetails.caqti in
let master_sig = Signatures.MasterWireDetails.caqti in
Caqti_type.custom
~encode:(fun
ExchangeWireAccount.
@ -263,7 +263,7 @@ let exchange_wire_account =
master_sig (option string) (option int))
let drain_profit_message =
let master_sig = Bin_sig.MasterDrainProfit.caqti in
let master_sig = Signatures.MasterDrainProfit.caqti in
Caqti_type.custom
~encode:(fun
DrainProfitsMessage.
@ -293,7 +293,7 @@ let drain_profit_message =
Caqti_type.(t6 b32 string string time amount master_sig)
let aml_officer_setup =
let master_sig = Bin_sig.MasterAmlOfficerStatus.caqti in
let master_sig = Signatures.MasterAmlOfficerStatus.caqti in
Caqti_type.custom
~encode:(fun
AmlOfficerSetup.
@ -333,7 +333,7 @@ let aml_officer_setup =
Caqti_type.(t6 eddsa_pub master_sig string bool bool time)
let exchange_partner_setup =
let master_sig = Bin_sig.PartnerConfiguration.caqti in
let master_sig = Signatures.PartnerConfiguration.caqti in
Caqti_type.custom
~encode:(fun
ExchangePartnerSetupRequest.