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

+ AuditorTeardownMessage

Browse source
This commit is contained in:
swrup 2025-12-04 16:22:38 +01:00
parent 97b8e921bc
commit 23ac34e3d7
2 changed files with 41 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

30
src/bin_signature.ml
View file

@ -270,6 +270,28 @@ module MasterAddAuditorPS = struct
include MK (R)
end
module MasterDelAuditorPS = struct
module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_DEL_AUDITOR *)
type r = {
end_date: TimeAbsoluteNBO.t;
auditor_pub: AuditorPublicKeyP.t;
}
let bin =
let open Bin in
Purpose.make_bin Taler_signatures.master_del_auditor @@ fun purpose ->
record (fun _purpose end_date auditor_pub -> { end_date; auditor_pub })
|+ Purpose.field purpose
|+ field TimeAbsoluteNBO.bin (fun t -> t.end_date)
|+ field AuditorPublicKeyP.bin (fun t -> t.auditor_pub)
|> sealr
end
include R
include MK (R)
end
(* ### BIN IMPL END ### *)
module WithdrawRequestPS = struct
@ -774,14 +796,6 @@ module CoinPurseRefundConfirmationPS = struct
}
end
module MasterDelAuditorPS = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_DEL_AUDITOR *)
type t = {
end_date: TimeAbsoluteNBO.t;
auditor_pub: AuditorPublicKeyP.t;
}
end
module MasterAddWirePS = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_ADD_WIRE *)
type t = {