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

+ AmlOfficerSetup

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

37
src/bin_signature.ml
View file

@ -488,6 +488,33 @@ module MasterDrainProfitPS = struct
include MK (R)
end
module MasterAmlOfficerStatusPS = struct
module R = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_AML_KEY *)
type r = {
change_date: TimestampNBO.t;
officer_pub: AmlOfficerPublicKeyP.t;
h_officer_name: Hash_64_cstr.t;
is_active: int32;
}
let bin =
let open Bin in
Purpose.make_bin Taler_signatures.master_aml_key @@ fun _purpose ->
record (fun _purpose change_date officer_pub h_officer_name is_active ->
{ change_date; officer_pub; h_officer_name; is_active })
|+ Purpose.field _purpose
|+ field TimestampNBO.bin (fun t -> t.change_date)
|+ field AmlOfficerPublicKeyP.bin (fun t -> t.officer_pub)
|+ field Hash_64_cstr.bin (fun t -> t.h_officer_name)
|+ field beint32 (fun t -> t.is_active)
|> sealr
end
include R
include MK (R)
end
(* ### BIN IMPL END ### *)
module WithdrawRequestPS = struct
@ -955,16 +982,6 @@ module CoinPurseRefundConfirmationPS = struct
}
end
module MasterAmlOfficerStatusPS = struct
(* purpose.purpose = TALER_SIGNATURE_MASTER_AML_KEY *)
type t = {
change_date: TimestampNBO.t;
officer_pub: AmlOfficerPublicKeyP.t;
h_officer_name: Hash_64_cstr.t;
is_active: int;
}
end
module AmlDecisionPS = struct
(* purpose.purpose = TALER_SIGNATURE_AML_DECISION *)
type t = {