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

+ AggregateTransferFee

Browse source
This commit is contained in:
swrup 2025-12-04 17:54:40 +01:00
parent ac08f7cc07
commit e19db93d2c
2 changed files with 58 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

41
src/bin_signature.ml
View file

@ -605,6 +605,36 @@ module WadPartnerSignaturePS = struct
include MK (R)
end
module MasterWireFeePS = struct
module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_WIRE_FEES *)
type r = {
h_wire_method: Hash_64_cstr.t;
start_date: TimeAbsoluteNBO.t;
end_date: TimeAbsoluteNBO.t;
wire_fee: AmountNBO.t;
closing_fee: AmountNBO.t;
}
let bin =
let open Bin in
Purpose.make_bin Taler_signatures.master_wire_fees @@ fun _purpose ->
record
(fun _purpose h_wire_method start_date end_date wire_fee closing_fee ->
{ h_wire_method; start_date; end_date; wire_fee; closing_fee })
|+ Purpose.field _purpose
|+ field Hash_64_cstr.bin (fun t -> t.h_wire_method)
|+ field TimeAbsoluteNBO.bin (fun t -> t.start_date)
|+ field TimeAbsoluteNBO.bin (fun t -> t.end_date)
|+ field AmountNBO.bin (fun t -> t.wire_fee)
|+ field AmountNBO.bin (fun t -> t.closing_fee)
|> sealr
end
include R
include MK (R)
end
(* ### BIN IMPL END ### *)
module WithdrawRequestPS = struct
@ -723,17 +753,6 @@ module ExchangeKeySetPS = struct
}
end
module MasterWireFeePS = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_WIRE_FEES *)
type t = {
h_wire_method: Hash_64_cstr.t;
start_date: TimeAbsoluteNBO.t;
end_date: TimeAbsoluteNBO.t;
wire_fee: AmountNBO.t;
closing_fee: AmountNBO.t;
}
end
module DepositTrackPS = struct
(* purpose.purpose = TALER_SIGNATURE_MERCHANT_TRACK_TRANSACTION *)
type t = {