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

+ ExchangePartnerListEntry

Browse source
This commit is contained in:
swrup 2025-12-04 17:50:49 +01:00
parent 47c4303363
commit ac08f7cc07
2 changed files with 95 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

62
src/bin_signature.ml
View file

@ -517,6 +517,8 @@ end
module PartnerConfigurationPS = struct
module R = struct
(* TODO purpose
this purpose is used 2 times!? *)
(* purpose.purpose = TALER_SIGNATURE_MASTER_PARNTER_DETAILS *)
type r = {
partner_pub: MasterPublicKeyP.t;
@ -555,6 +557,54 @@ module PartnerConfigurationPS = struct
include MK (R)
end
module WadPartnerSignaturePS = struct
module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_PARTNER_DETAILS *)
type r = {
h_partner_base_url: Hash_64_cstr.t;
master_public_key: MasterPublicKeyP.t;
start_date: TimeAbsoluteNBO.t;
end_date: TimeAbsoluteNBO.t;
wad_fee: AmountNBO.t;
wad_frequency: TimeRelativeNBO.t;
}
let bin =
let open Bin in
Purpose.make_bin Taler_signatures.master_partner_details
@@ fun _purpose ->
record
(fun
_purpose
h_partner_base_url
master_public_key
start_date
end_date
wad_fee
wad_frequency
->
{
h_partner_base_url;
master_public_key;
start_date;
end_date;
wad_fee;
wad_frequency;
})
|+ Purpose.field _purpose
|+ field Hash_64_cstr.bin (fun t -> t.h_partner_base_url)
|+ field MasterPublicKeyP.bin (fun t -> t.master_public_key)
|+ field TimeAbsoluteNBO.bin (fun t -> t.start_date)
|+ field TimeAbsoluteNBO.bin (fun t -> t.end_date)
|+ field AmountNBO.bin (fun t -> t.wad_fee)
|+ field TimeRelativeNBO.bin (fun t -> t.wad_frequency)
|> sealr
end
include R
include MK (R)
end
(* ### BIN IMPL END ### *)
module WithdrawRequestPS = struct
@ -985,18 +1035,6 @@ module WadDataSignaturePS = struct
}
end
module WadPartnerSignaturePS = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_PARTNER_DETAILS *)
type t = {
h_partner_base_url: Hash_64_cstr.t;
master_public_key: MasterPublicKeyP.t;
start_date: TimeAbsoluteNBO.t;
end_date: TimeAbsoluteNBO.t;
wad_fee: AmountNBO.t;
wad_frequency: TimeRelativeNBO.t;
}
end
module P2PFeesPS = struct
(* purpose.purpose = TALER_SIGNATURE_P2P_FEES *)
type t = {