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-24 18:11:01 +01:00
parent 406bd4365d
commit d167838410
1 changed files with 62 additions and 62 deletions
Download patch file Download diff file Expand all files Collapse all files

124
src/signatures.ml
View file

@ -153,7 +153,7 @@ end
module DenominationKeyAnnouncement = struct module DenominationKeyAnnouncement = struct
module R = struct module R = struct
(* CS: use purpose TALER_SIGNATURE_SM_CS_DENOMINATION_KEY *) (* CS: use purpose TALER_SIGNATURE_SM_CS_DENOMINATION_KEY *)
(* purpose.purpose = TALER_SIGNATURE_SM_RSA_DENOMINATION_KEY *) (* purpose = TALER_SIGNATURE_SM_RSA_DENOMINATION_KEY *)
type r = { type r = {
h_denom_pub: DenominationHash.t; h_denom_pub: DenominationHash.t;
h_section_name: Hash.Cstring.H64.t; h_section_name: Hash.Cstring.H64.t;
@ -182,7 +182,7 @@ end
module SigningKeyAnnouncement = struct module SigningKeyAnnouncement = struct
module R = struct module R = struct
(* purpose.purpose = TALER_SIGNATURE_SM_SIGNING_KEY *) (* purpose = TALER_SIGNATURE_SM_SIGNING_KEY *)
type r = { type r = {
exchange_pub: ExchangePublicKeyP.t; exchange_pub: ExchangePublicKeyP.t;
anchor_time: Timestamp.t; anchor_time: Timestamp.t;
@ -206,7 +206,7 @@ end
module DenominationKeyValidity = struct module DenominationKeyValidity = struct
module R = struct module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_DENOMINATION_KEY_VALIDITY *) (* purpose = TALER_SIGNATURE_MASTER_DENOMINATION_KEY_VALIDITY *)
type r = { type r = {
master: MasterPublicKeyP.t; master: MasterPublicKeyP.t;
start: Timestamp.t; start: Timestamp.t;
@ -274,7 +274,7 @@ end
module ExchangeSigningKeyValidity = struct module ExchangeSigningKeyValidity = struct
module R = struct module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_SIGNING_KEY_VALIDITY *) (* purpose = TALER_SIGNATURE_MASTER_SIGNING_KEY_VALIDITY *)
type r = { type r = {
start: Timestamp.t; start: Timestamp.t;
expire: Timestamp.t; expire: Timestamp.t;
@ -301,7 +301,7 @@ end
module MasterDenominationKeyRevocation = struct module MasterDenominationKeyRevocation = struct
module R = struct module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_DENOMINATION_KEY_REVOKED. *) (* purpose = TALER_SIGNATURE_MASTER_DENOMINATION_KEY_REVOKED. *)
type r = { h_denom_pub: DenominationHash.t } type r = { h_denom_pub: DenominationHash.t }
let bin = let bin =
@ -319,7 +319,7 @@ end
module MasterSigningKeyRevocation = struct module MasterSigningKeyRevocation = struct
module R = struct module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_SIGNING_KEY_REVOKED *) (* purpose = TALER_SIGNATURE_MASTER_SIGNING_KEY_REVOKED *)
type r = { exchange_pub: ExchangePublicKeyP.t } type r = { exchange_pub: ExchangePublicKeyP.t }
let bin = let bin =
@ -337,7 +337,7 @@ end
module MasterAddAuditor = struct module MasterAddAuditor = struct
module R = struct module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_ADD_AUDITOR *) (* purpose = TALER_SIGNATURE_MASTER_ADD_AUDITOR *)
type r = { type r = {
start_date: Timestamp.t; start_date: Timestamp.t;
auditor_pub: AuditorPublicKeyP.t; auditor_pub: AuditorPublicKeyP.t;
@ -361,7 +361,7 @@ end
module MasterDelAuditor = struct module MasterDelAuditor = struct
module R = struct module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_DEL_AUDITOR *) (* purpose = TALER_SIGNATURE_MASTER_DEL_AUDITOR *)
type r = { type r = {
end_date: Timestamp.t; end_date: Timestamp.t;
auditor_pub: AuditorPublicKeyP.t; auditor_pub: AuditorPublicKeyP.t;
@ -383,7 +383,7 @@ end
module GlobalFees = struct module GlobalFees = struct
module R = struct module R = struct
(* TODO signatures taler doc *) (* TODO signatures taler doc *)
(* purpose.purpose = TALER_SIGNATURE_MASTER_GLOBAL_FEES *) (* purpose = TALER_SIGNATURE_MASTER_GLOBAL_FEES *)
type r = { type r = {
start_date: Timestamp.t; start_date: Timestamp.t;
end_date: Timestamp.t; end_date: Timestamp.t;
@ -437,7 +437,7 @@ end
module MasterWireDetails = struct module MasterWireDetails = struct
module R = struct module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_WIRE_DETAILS *) (* purpose = TALER_SIGNATURE_MASTER_WIRE_DETAILS *)
type r = { type r = {
h_wire_details: FullPaytoHash.t; h_wire_details: FullPaytoHash.t;
h_conversion_url: Hash.Cstring.H64.t; h_conversion_url: Hash.Cstring.H64.t;
@ -475,7 +475,7 @@ end
module MasterAddWire = struct module MasterAddWire = struct
module R = struct module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_ADD_WIRE *) (* purpose = TALER_SIGNATURE_MASTER_ADD_WIRE *)
type r = { type r = {
start_date: Timestamp.t; start_date: Timestamp.t;
h_wire: FullPaytoHash.t; h_wire: FullPaytoHash.t;
@ -517,7 +517,7 @@ end
module MasterDelWire = struct module MasterDelWire = struct
module R = struct module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_DEL_WIRE *) (* purpose = TALER_SIGNATURE_MASTER_DEL_WIRE *)
type r = { type r = {
end_date: Timestamp.t; end_date: Timestamp.t;
h_wire: FullPaytoHash.t; h_wire: FullPaytoHash.t;
@ -538,7 +538,7 @@ end
module MasterDrainProfit = struct module MasterDrainProfit = struct
module R = struct module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_DRAIN_PROFITS *) (* purpose = TALER_SIGNATURE_MASTER_DRAIN_PROFITS *)
type r = { type r = {
wtid: WireTransferIdentifierRawP.t; wtid: WireTransferIdentifierRawP.t;
date: Timestamp.t; date: Timestamp.t;
@ -566,7 +566,7 @@ end
module MasterAmlOfficerStatus = struct module MasterAmlOfficerStatus = struct
module R = struct module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_AML_KEY *) (* purpose = TALER_SIGNATURE_MASTER_AML_KEY *)
type r = { type r = {
change_date: Timestamp.t; change_date: Timestamp.t;
officer_pub: AmlOfficerPublicKeyP.t; officer_pub: AmlOfficerPublicKeyP.t;
@ -592,7 +592,7 @@ end
module PartnerConfiguration = struct module PartnerConfiguration = struct
module R = struct module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_PARNTER_DETAILS *) (* purpose = TALER_SIGNATURE_MASTER_PARNTER_DETAILS *)
type r = { type r = {
partner_pub: MasterPublicKeyP.t; partner_pub: MasterPublicKeyP.t;
start_date: Timestamp.t; start_date: Timestamp.t;
@ -631,7 +631,7 @@ end
module WadPartnerSignature = struct module WadPartnerSignature = struct
module R = struct module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_PARTNER_DETAILS *) (* purpose = TALER_SIGNATURE_MASTER_PARTNER_DETAILS *)
type r = { type r = {
h_partner_base_url: Hash.Cstring.H64.t; h_partner_base_url: Hash.Cstring.H64.t;
master_public_key: MasterPublicKeyP.t; master_public_key: MasterPublicKeyP.t;
@ -678,7 +678,7 @@ end
module MasterWireFee = struct module MasterWireFee = struct
module R = struct module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_WIRE_FEES *) (* purpose = TALER_SIGNATURE_MASTER_WIRE_FEES *)
type r = { type r = {
h_wire_method: Hash.Cstring.H64.t; h_wire_method: Hash.Cstring.H64.t;
start_date: Timestamp.t; start_date: Timestamp.t;
@ -707,7 +707,7 @@ end
module ExchangeKeyValidity = struct module ExchangeKeyValidity = struct
module R = struct module R = struct
(* purpose.purpose = TALER_SIGNATURE_AUDITOR_EXCHANGE_KEYS *) (* purpose = TALER_SIGNATURE_AUDITOR_EXCHANGE_KEYS *)
type r = { type r = {
auditor_url_hash: Hash.Cstring.H64.t; auditor_url_hash: Hash.Cstring.H64.t;
master: MasterPublicKeyP.t; master: MasterPublicKeyP.t;
@ -773,7 +773,7 @@ end
module ExchangeKeySet = struct module ExchangeKeySet = struct
module R = struct module R = struct
(* purpose.purpose = TALER_SIGNATURE_EXCHANGE_KEY_SET *) (* purpose = TALER_SIGNATURE_EXCHANGE_KEY_SET *)
type r = { type r = {
list_issue_date: Timestamp.t; list_issue_date: Timestamp.t;
(* hash over a concatenation of master_sigs *) (* hash over a concatenation of master_sigs *)
@ -842,7 +842,7 @@ module WithdrawConfirmation = struct
end end
module SingleWithdrawRequest = struct module SingleWithdrawRequest = struct
(* purpose.purpose = TALER_SIGNATURE_WALLET_RESERVE_WITHDRAW *) (* purpose = TALER_SIGNATURE_WALLET_RESERVE_WITHDRAW *)
type t = { type t = {
amount_with_fee: Amount.t; amount_with_fee: Amount.t;
h_denomination_pub: DenominationHash.t; h_denomination_pub: DenominationHash.t;
@ -851,7 +851,7 @@ module SingleWithdrawRequest = struct
end end
module DepositRequest = struct module DepositRequest = struct
(* purpose.purpose = TALER_SIGNATURE_WALLET_COIN_DEPOSIT *) (* purpose = TALER_SIGNATURE_WALLET_COIN_DEPOSIT *)
type t = { type t = {
h_contract_terms: PrivateContractHash.t; h_contract_terms: PrivateContractHash.t;
h_age_commitment: AgeCommitmentHash.t; h_age_commitment: AgeCommitmentHash.t;
@ -868,7 +868,7 @@ module DepositRequest = struct
end end
module DepositConfirmation = struct module DepositConfirmation = struct
(* purpose.purpose = TALER_SIGNATURE_EXCHANGE_CONFIRM_DEPOSIT *) (* purpose = TALER_SIGNATURE_EXCHANGE_CONFIRM_DEPOSIT *)
type t = { type t = {
h_contract_terms: PrivateContractHash.t; h_contract_terms: PrivateContractHash.t;
h_wire: MerchantWireHash.t; h_wire: MerchantWireHash.t;
@ -882,7 +882,7 @@ module DepositConfirmation = struct
end end
module RefreshMeltCoinAffirmation = struct module RefreshMeltCoinAffirmation = struct
(* purpose.purpose = TALER_SIGNATURE_WALLET_COIN_MELT *) (* purpose = TALER_SIGNATURE_WALLET_COIN_MELT *)
type t = { type t = {
session_hash: RefreshCommitmentP.t; session_hash: RefreshCommitmentP.t;
h_denom_pub: DenominationHash.t; h_denom_pub: DenominationHash.t;
@ -893,7 +893,7 @@ module RefreshMeltCoinAffirmation = struct
end end
module RefreshMeltConfirmation = struct module RefreshMeltConfirmation = struct
(* purpose.purpose = TALER_SIGNATURE_EXCHANGE_CONFIRM_MELT *) (* purpose = TALER_SIGNATURE_EXCHANGE_CONFIRM_MELT *)
type t = { type t = {
session_hash: RefreshCommitmentP.t; session_hash: RefreshCommitmentP.t;
noreveal_index: int; (* uint16_t mapped to OCaml int *) noreveal_index: int; (* uint16_t mapped to OCaml int *)
@ -901,7 +901,7 @@ module RefreshMeltConfirmation = struct
end end
module DepositTrack = struct module DepositTrack = struct
(* purpose.purpose = TALER_SIGNATURE_MERCHANT_TRACK_TRANSACTION *) (* purpose = TALER_SIGNATURE_MERCHANT_TRACK_TRANSACTION *)
type t = { type t = {
h_contract_terms: PrivateContractHash.t; h_contract_terms: PrivateContractHash.t;
h_wire: MerchantWireHash.t; h_wire: MerchantWireHash.t;
@ -920,7 +920,7 @@ module WireDepositDetailP = struct
end end
module WireDepositData = struct module WireDepositData = struct
(* purpose.purpose = TALER_SIGNATURE_EXCHANGE_CONFIRM_WIRE_DEPOSIT *) (* purpose = TALER_SIGNATURE_EXCHANGE_CONFIRM_WIRE_DEPOSIT *)
type t = { type t = {
total: Amount.t; total: Amount.t;
wire_fee: Amount.t; wire_fee: Amount.t;
@ -931,17 +931,17 @@ module WireDepositData = struct
end end
module PaymentResponse = struct module PaymentResponse = struct
(* purpose.purpose = TALER_SIGNATURE_MERCHANT_PAYMENT_OK *) (* purpose = TALER_SIGNATURE_MERCHANT_PAYMENT_OK *)
type t = { h_contract_terms: PrivateContractHash.t } type t = { h_contract_terms: PrivateContractHash.t }
end end
module Contract = struct module Contract = struct
(* purpose.purpose = TALER_SIGNATURE_MERCHANT_CONTRACT *) (* purpose = TALER_SIGNATURE_MERCHANT_CONTRACT *)
type t = { h_contract_terms: PrivateContractHash.t } type t = { h_contract_terms: PrivateContractHash.t }
end end
module ConfirmWire = struct module ConfirmWire = struct
(* purpose.purpose = TALER_SIGNATURE_EXCHANGE_CONFIRM_WIRE *) (* purpose = TALER_SIGNATURE_EXCHANGE_CONFIRM_WIRE *)
type t = { type t = {
h_wire: MerchantWireHash.t; h_wire: MerchantWireHash.t;
h_contract_terms: PrivateContractHash.t; h_contract_terms: PrivateContractHash.t;
@ -953,7 +953,7 @@ module ConfirmWire = struct
end end
module RefundConfirmation = struct module RefundConfirmation = struct
(* purpose.purpose = TALER_SIGNATURE_EXCHANGE_CONFIRM_REFUND *) (* purpose = TALER_SIGNATURE_EXCHANGE_CONFIRM_REFUND *)
type t = { type t = {
h_contract_terms: PrivateContractHash.t; h_contract_terms: PrivateContractHash.t;
coin_pub: CoinSpendPublicKeyP.t; coin_pub: CoinSpendPublicKeyP.t;
@ -964,7 +964,7 @@ module RefundConfirmation = struct
end end
module DepositTrackPS2 = struct module DepositTrackPS2 = struct
(* purpose.purpose = TALER_SIGNATURE_MERCHANT_TRACK_TRANSACTION *) (* purpose = TALER_SIGNATURE_MERCHANT_TRACK_TRANSACTION *)
type t = { type t = {
h_contract_terms: PrivateContractHash.t; h_contract_terms: PrivateContractHash.t;
h_wire: MerchantWireHash.t; h_wire: MerchantWireHash.t;
@ -974,7 +974,7 @@ module DepositTrackPS2 = struct
end end
module RefundRequest = struct module RefundRequest = struct
(* purpose.purpose = TALER_SIGNATURE_MERCHANT_REFUND *) (* purpose = TALER_SIGNATURE_MERCHANT_REFUND *)
type t = { type t = {
h_contract_terms: PrivateContractHash.t; h_contract_terms: PrivateContractHash.t;
coin_pub: CoinSpendPublicKeyP.t; coin_pub: CoinSpendPublicKeyP.t;
@ -985,13 +985,13 @@ module RefundRequest = struct
end end
module MerchantRefundConfirmation = struct module MerchantRefundConfirmation = struct
(* purpose.purpose = TALER_SIGNATURE_MERCHANT_REFUND_OK *) (* purpose = TALER_SIGNATURE_MERCHANT_REFUND_OK *)
(* Hash of the order ID (a string), hashed without the 0-termination. *) (* Hash of the order ID (a string), hashed without the 0-termination. *)
type t = { h_order_id: Hash.Cstring.H64.t } type t = { h_order_id: Hash.Cstring.H64.t }
end end
module RecoupRequest = struct module RecoupRequest = struct
(* purpose.purpose = TALER_SIGNATURE_WALLET_COIN_RECOUP or TALER_SIGNATURE_WALLET_COIN_RECOUP_REFRESH *) (* purpose = TALER_SIGNATURE_WALLET_COIN_RECOUP or TALER_SIGNATURE_WALLET_COIN_RECOUP_REFRESH *)
type t = { type t = {
h_denom_pub: DenominationHash.t; h_denom_pub: DenominationHash.t;
coin_blind: DenominationBlindingKeyP.t; coin_blind: DenominationBlindingKeyP.t;
@ -999,7 +999,7 @@ module RecoupRequest = struct
end end
module RecoupRefreshConfirmation = struct module RecoupRefreshConfirmation = struct
(* purpose.purpose = TALER_SIGNATURE_EXCHANGE_CONFIRM_RECOUP_REFRESH *) (* purpose = TALER_SIGNATURE_EXCHANGE_CONFIRM_RECOUP_REFRESH *)
type t = { type t = {
timestamp: Timestamp.t; timestamp: Timestamp.t;
recoup_amount: Amount.t; recoup_amount: Amount.t;
@ -1009,7 +1009,7 @@ module RecoupRefreshConfirmation = struct
end end
module RecoupConfirmation = struct module RecoupConfirmation = struct
(* purpose.purpose = TALER_SIGNATURE_EXCHANGE_CONFIRM_RECOUP *) (* purpose = TALER_SIGNATURE_EXCHANGE_CONFIRM_RECOUP *)
type t = { type t = {
timestamp: Timestamp.t; timestamp: Timestamp.t;
recoup_amount: Amount.t; recoup_amount: Amount.t;
@ -1019,7 +1019,7 @@ module RecoupConfirmation = struct
end end
module DenominationUnknownAffirmation = struct module DenominationUnknownAffirmation = struct
(* purpose.purpose = TALER_SIGNATURE_EXCHANGE_AFFIRM_DENOM_UNKNOWN *) (* purpose = TALER_SIGNATURE_EXCHANGE_AFFIRM_DENOM_UNKNOWN *)
type t = { type t = {
timestamp: Timestamp.t; timestamp: Timestamp.t;
h_denom_pub: DenominationHash.t; h_denom_pub: DenominationHash.t;
@ -1027,7 +1027,7 @@ module DenominationUnknownAffirmation = struct
end end
module DenominationExpiredAffirmation = struct module DenominationExpiredAffirmation = struct
(* purpose.purpose = TALER_SIGNATURE_EXCHANGE_GENERIC_DENOMINATIN_EXPIRED *) (* purpose = TALER_SIGNATURE_EXCHANGE_GENERIC_DENOMINATIN_EXPIRED *)
type t = { type t = {
timestamp: Timestamp.t; timestamp: Timestamp.t;
operation: string; (* char[8] → string *) operation: string; (* char[8] → string *)
@ -1036,7 +1036,7 @@ module DenominationExpiredAffirmation = struct
end end
module ReserveCloseConfirmation = struct module ReserveCloseConfirmation = struct
(* purpose.purpose = TALER_SIGNATURE_EXCHANGE_RESERVE_CLOSED *) (* purpose = TALER_SIGNATURE_EXCHANGE_RESERVE_CLOSED *)
type t = { type t = {
timestamp: Timestamp.t; timestamp: Timestamp.t;
closing_amount: Amount.t; closing_amount: Amount.t;
@ -1046,7 +1046,7 @@ module ReserveCloseConfirmation = struct
end end
module CoinLinkSignature = struct module CoinLinkSignature = struct
(* purpose.purpose = TALER_SIGNATURE_WALLET_COIN_LINK *) (* purpose = TALER_SIGNATURE_WALLET_COIN_LINK *)
type t = { type t = {
h_denom_pub: DenominationHash.t; h_denom_pub: DenominationHash.t;
old_coin_pub: CoinSpendPublicKeyP.t; old_coin_pub: CoinSpendPublicKeyP.t;
@ -1056,17 +1056,17 @@ module CoinLinkSignature = struct
end end
module RefreshNonceSignature = struct module RefreshNonceSignature = struct
(* purpose.purpose = TALER_SIGNATURE_WALLET_COIN_LINK *) (* purpose = TALER_SIGNATURE_WALLET_COIN_LINK *)
type t = { nonce: PublicRefreshCoinNonceP.t } type t = { nonce: PublicRefreshCoinNonceP.t }
end end
module ReserveStatusRequestSignature = struct module ReserveStatusRequestSignature = struct
(* purpose.purpose = TALER_SIGNATURE_RESERVE_STATUS_REQUEST *) (* purpose = TALER_SIGNATURE_RESERVE_STATUS_REQUEST *)
type t = { request_timestamp: Timestamp.t } type t = { request_timestamp: Timestamp.t }
end end
module ReserveHistoryRequestSignature = struct module ReserveHistoryRequestSignature = struct
(* purpose.purpose = TALER_SIGNATURE_RESERVE_HISTORY_REQUEST *) (* purpose = TALER_SIGNATURE_RESERVE_HISTORY_REQUEST *)
type t = { type t = {
history_fee: Amount.t; history_fee: Amount.t;
request_timestamp: Timestamp.t; request_timestamp: Timestamp.t;
@ -1074,12 +1074,12 @@ module ReserveHistoryRequestSignature = struct
end end
module PurseStatusRequestSignature = struct module PurseStatusRequestSignature = struct
(* purpose.purpose = TALER_SIGNATURE_PURSE_STATUS_REQUEST *) (* purpose = TALER_SIGNATURE_PURSE_STATUS_REQUEST *)
type t = unit type t = unit
end end
module PurseStatusResponseSignature = struct module PurseStatusResponseSignature = struct
(* purpose.purpose = TALER_SIGNATURE_PURSE_STATUS_RESPONSE *) (* purpose = TALER_SIGNATURE_PURSE_STATUS_RESPONSE *)
type t = { type t = {
total_purse_amount: Amount.t; total_purse_amount: Amount.t;
total_deposit_amount: Amount.t; total_deposit_amount: Amount.t;
@ -1091,12 +1091,12 @@ module PurseStatusResponseSignature = struct
end end
module ReserveCloseRequestSignature = struct module ReserveCloseRequestSignature = struct
(* purpose.purpose = TALER_SIGNATURE_WALLET_RESERVE_CLOSE *) (* purpose = TALER_SIGNATURE_WALLET_RESERVE_CLOSE *)
type t = unit type t = unit
end end
module PurseRequestSignature = struct module PurseRequestSignature = struct
(* purpose.purpose = TALER_SIGNATURE_WALLET_PURSE_CREATE *) (* purpose = TALER_SIGNATURE_WALLET_PURSE_CREATE *)
type t = { type t = {
purse_expiration: Timestamp.t; purse_expiration: Timestamp.t;
merge_value_after_fees: Amount.t; merge_value_after_fees: Amount.t;
@ -1106,7 +1106,7 @@ module PurseRequestSignature = struct
end end
module PurseDepositSignature = struct module PurseDepositSignature = struct
(* purpose.purpose = TALER_SIGNATURE_PURSE_DEPOSIT *) (* purpose = TALER_SIGNATURE_PURSE_DEPOSIT *)
type t = { type t = {
coin_contribution: Amount.t; coin_contribution: Amount.t;
h_denom_pub: DenominationHash.t; h_denom_pub: DenominationHash.t;
@ -1117,7 +1117,7 @@ module PurseDepositSignature = struct
end end
module PurseDepositSignaturePS2 = struct module PurseDepositSignaturePS2 = struct
(* purpose.purpose = TALER_SIGNATURE_WALLET_RESERVE_OPEN_DEPOSIT *) (* purpose = TALER_SIGNATURE_WALLET_RESERVE_OPEN_DEPOSIT *)
type t = { type t = {
reserve_sig: ReserveSignatureP.t; reserve_sig: ReserveSignatureP.t;
coin_contribution: Amount.t; coin_contribution: Amount.t;
@ -1125,7 +1125,7 @@ module PurseDepositSignaturePS2 = struct
end end
module PurseDepositConfirmedSignature = struct module PurseDepositConfirmedSignature = struct
(* purpose.purpose = TALER_SIGNATURE_PURSE_DEPOSIT_CONFIRMED *) (* purpose = TALER_SIGNATURE_PURSE_DEPOSIT_CONFIRMED *)
type t = { type t = {
total_purse_amount: Amount.t; total_purse_amount: Amount.t;
total_deposit_fees: Amount.t; total_deposit_fees: Amount.t;
@ -1136,7 +1136,7 @@ module PurseDepositConfirmedSignature = struct
end end
module PurseMergeSignature = struct module PurseMergeSignature = struct
(* purpose.purpose = TALER_SIGNATURE_WALLET_PURSE_MERGE *) (* purpose = TALER_SIGNATURE_WALLET_PURSE_MERGE *)
type t = { type t = {
merge_timestamp: Timestamp.t; merge_timestamp: Timestamp.t;
h_wire: NormalizedPaytoHash.t; h_wire: NormalizedPaytoHash.t;
@ -1144,7 +1144,7 @@ module PurseMergeSignature = struct
end end
module AccountMergeSignature = struct module AccountMergeSignature = struct
(* purpose.purpose = TALER_SIGNATURE_WALLET_ACCOUNT_MERGE *) (* purpose = TALER_SIGNATURE_WALLET_ACCOUNT_MERGE *)
type t = { type t = {
reserve_pub: ReservePublicKeyP.t; reserve_pub: ReservePublicKeyP.t;
purse_pub: PursePublicKey.t; purse_pub: PursePublicKey.t;
@ -1157,12 +1157,12 @@ module AccountMergeSignature = struct
end end
module AccountSetupRequestSignature = struct module AccountSetupRequestSignature = struct
(* purpose.purpose = TALER_SIGNATURE_WALLET_ACCOUNT_SETUP *) (* purpose = TALER_SIGNATURE_WALLET_ACCOUNT_SETUP *)
type t = { threshold: Amount.t } type t = { threshold: Amount.t }
end end
module PurseMergeSuccessSignature = struct module PurseMergeSuccessSignature = struct
(* purpose.purpose = TALER_SIGNATURE_PURSE_MERGE_SUCCESS *) (* purpose = TALER_SIGNATURE_PURSE_MERGE_SUCCESS *)
type t = { type t = {
reserve_pub: ReservePublicKeyP.t; reserve_pub: ReservePublicKeyP.t;
purse_pub: PursePublicKey.t; purse_pub: PursePublicKey.t;
@ -1175,7 +1175,7 @@ module PurseMergeSuccessSignature = struct
end end
module WadDataSignature = struct module WadDataSignature = struct
(* purpose.purpose = TALER_SIGNATURE_WAD_DATA *) (* purpose = TALER_SIGNATURE_WAD_DATA *)
type t = { type t = {
wad_execution_time: Timestamp.t; wad_execution_time: Timestamp.t;
total_amount: Amount.t; total_amount: Amount.t;
@ -1185,7 +1185,7 @@ module WadDataSignature = struct
end end
module P2PFees = struct module P2PFees = struct
(* purpose.purpose = TALER_SIGNATURE_P2P_FEES *) (* purpose = TALER_SIGNATURE_P2P_FEES *)
type t = { type t = {
start_date: Timestamp.t; start_date: Timestamp.t;
end_date: Timestamp.t; end_date: Timestamp.t;
@ -1200,7 +1200,7 @@ module P2PFees = struct
end end
module CoinPurseRefundConfirmation = struct module CoinPurseRefundConfirmation = struct
(* purpose.purpose = TALER_SIGNATURE_EXCHANGE_CONFIRM_PURSE_REFUND *) (* purpose = TALER_SIGNATURE_EXCHANGE_CONFIRM_PURSE_REFUND *)
type t = { type t = {
purse_pub: PursePublicKey.t; purse_pub: PursePublicKey.t;
coin_pub: CoinSpendPublicKeyP.t; coin_pub: CoinSpendPublicKeyP.t;
@ -1210,7 +1210,7 @@ module CoinPurseRefundConfirmation = struct
end end
module AmlDecision = struct module AmlDecision = struct
(* purpose.purpose = TALER_SIGNATURE_AML_DECISION *) (* purpose = TALER_SIGNATURE_AML_DECISION *)
type t = { type t = {
h_justification: Hash.Cstring.H64.t; h_justification: Hash.Cstring.H64.t;
decision_time: Timestamp.t; decision_time: Timestamp.t;
@ -1222,7 +1222,7 @@ module AmlDecision = struct
end end
module ReserveOpen = struct module ReserveOpen = struct
(* purpose.purpose = TALER_SIGNATURE_WALLET_RESERVE_OPEN *) (* purpose = TALER_SIGNATURE_WALLET_RESERVE_OPEN *)
type t = { type t = {
reserve_payment: Amount.t; reserve_payment: Amount.t;
request_timestamp: Timestamp.t; request_timestamp: Timestamp.t;
@ -1232,7 +1232,7 @@ module ReserveOpen = struct
end end
module ReserveClose = struct module ReserveClose = struct
(* purpose.purpose = TALER_SIGNATURE_WALLET_RESERVE_CLOSE *) (* purpose = TALER_SIGNATURE_WALLET_RESERVE_CLOSE *)
type t = { type t = {
request_timestamp: Timestamp.t; request_timestamp: Timestamp.t;
target_account_h_payto: FullPaytoHash.t; target_account_h_payto: FullPaytoHash.t;
@ -1240,7 +1240,7 @@ module ReserveClose = struct
end end
module ReserveAttestRequest = struct module ReserveAttestRequest = struct
(* purpose.purpose = TALER_SIGNATURE_WALLET_ATTEST_REQUEST *) (* purpose = TALER_SIGNATURE_WALLET_ATTEST_REQUEST *)
type t = { type t = {
request_timestamp: Timestamp.t; request_timestamp: Timestamp.t;
h_details: Hash.Cstring.H64.t; h_details: Hash.Cstring.H64.t;
@ -1248,7 +1248,7 @@ module ReserveAttestRequest = struct
end end
module ExchangeAttest = struct module ExchangeAttest = struct
(* purpose.purpose = TALER_SIGNATURE_EXCHANGE_RESERVE_ATTEST_DETAILS *) (* purpose = TALER_SIGNATURE_EXCHANGE_RESERVE_ATTEST_DETAILS *)
type t = { type t = {
attest_timestamp: Timestamp.t; attest_timestamp: Timestamp.t;
expiration_time: Timestamp.t; expiration_time: Timestamp.t;