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

+ AuditorSetupMessage

Browse source
This commit is contained in:
swrup 2025-12-04 16:19:10 +01:00
parent 8685182709
commit 97b8e921bc
2 changed files with 55 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

34
src/bin_signature.ml
View file

@ -245,6 +245,31 @@ module MasterSigningKeyRevocationPS = struct
include MK (R)
end
module MasterAddAuditorPS = struct
module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_ADD_AUDITOR *)
type r = {
start_date: TimeAbsoluteNBO.t;
auditor_pub: AuditorPublicKeyP.t;
h_auditor_url: Hash_64_cstr.t;
}
let bin =
let open Bin in
Purpose.make_bin Taler_signatures.master_add_auditor @@ fun purpose ->
record (fun _purpose start_date auditor_pub h_auditor_url ->
{ start_date; auditor_pub; h_auditor_url })
|+ Purpose.field purpose
|+ field TimeAbsoluteNBO.bin (fun t -> t.start_date)
|+ field AuditorPublicKeyP.bin (fun t -> t.auditor_pub)
|+ field Hash_64_cstr.bin (fun t -> t.h_auditor_url)
|> sealr
end
include R
include MK (R)
end
(* ### BIN IMPL END ### *)
module WithdrawRequestPS = struct
@ -749,15 +774,6 @@ module CoinPurseRefundConfirmationPS = struct
}
end
module MasterAddAuditorPS = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_ADD_AUDITOR *)
type t = {
start_date: TimeAbsoluteNBO.t;
auditor_pub: AuditorPublicKeyP.t;
h_auditor_url: Hash_64_cstr.t;
}
end
module MasterDelAuditorPS = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_DEL_AUDITOR *)
type t = {