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

+ DrainProfitsMessage

Browse source
This commit is contained in:
swrup 2025-12-04 17:16:41 +01:00
parent 5a5e19e3ff
commit 3bfbaf4ccd
2 changed files with 80 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

40
src/bin_signature.ml
View file

@ -459,6 +459,35 @@ module MasterDelWirePS = struct
include MK (R)
end
module MasterDrainProfitPS = struct
module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_DRAIN_PROFITS *)
type r = {
wtid: WireTransferIdentifierRawP.t;
date: TimeAbsoluteNBO.t;
amount: AmountNBO.t;
h_section: Hash_64_cstr.t;
h_payto: FullPaytoHash.t;
}
let bin =
let open Bin in
Purpose.make_bin Taler_signatures.master_drain_profit @@ fun _purpose ->
record (fun _purpose wtid date amount h_section h_payto ->
{ wtid; date; amount; h_section; h_payto })
|+ Purpose.field _purpose
|+ field WireTransferIdentifierRawP.bin (fun t -> t.wtid)
|+ field TimeAbsoluteNBO.bin (fun t -> t.date)
|+ field AmountNBO.bin (fun t -> t.amount)
|+ field Hash_64_cstr.bin (fun t -> t.h_section)
|+ field FullPaytoHash.bin (fun t -> t.h_payto)
|> sealr
end
include R
include MK (R)
end
(* ### BIN IMPL END ### *)
module WithdrawRequestPS = struct
@ -588,17 +617,6 @@ module MasterWireFeePS = struct
}
end
module MasterDrainProfitPS = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_DRAIN_PROFITS *)
type t = {
wtid: WireTransferIdentifierRawP.t;
date: TimeAbsoluteNBO.t;
amount: AmountNBO.t;
h_section: Hash_64_cstr.t;
h_payto: FullPaytoHash.t;
}
end
module DepositTrackPS = struct
(* purpose.purpose = TALER_SIGNATURE_MERCHANT_TRACK_TRANSACTION *)
type t = {