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

+ WireTeardownMessage

Browse source
This commit is contained in:
swrup 2025-12-04 17:10:13 +01:00
parent 21473a6ddc
commit 5a5e19e3ff
2 changed files with 45 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

30
src/bin_signature.ml
View file

@ -437,6 +437,28 @@ module MasterAddWirePS = struct
include MK (R)
end
module MasterDelWirePS = struct
module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_DEL_WIRE *)
type r = {
end_date: TimeAbsoluteNBO.t;
h_wire: FullPaytoHash.t;
}
let bin =
let open Bin in
Purpose.make_bin Taler_signatures.master_del_wire @@ fun _purpose ->
record (fun _purpose end_date h_wire -> { end_date; h_wire })
|+ Purpose.field _purpose
|+ field TimeAbsoluteNBO.bin (fun t -> t.end_date)
|+ field FullPaytoHash.bin (fun t -> t.h_wire)
|> sealr
end
include R
include MK (R)
end
(* ### BIN IMPL END ### *)
module WithdrawRequestPS = struct
@ -915,14 +937,6 @@ module CoinPurseRefundConfirmationPS = struct
}
end
module MasterDelWirePS = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_DEL_WIRE *)
type t = {
end_date: TimeAbsoluteNBO.t;
h_wire: FullPaytoHash.t;
}
end
module MasterAmlOfficerStatusPS = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_AML_KEY *)
type t = {