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

+ ExchangeKeysResponse

Browse source
This commit is contained in:
swrup 2025-12-06 17:49:25 +01:00
parent df30a73e23
commit e3ea4028f8
2 changed files with 243 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

30
src/bin_signature.ml
View file

@ -702,6 +702,28 @@ module ExchangeKeyValidityPS = struct
include MK (R)
end
module ExchangeKeySetPS = struct
module R = struct
(* purpose.purpose = TALER_SIGNATURE_EXCHANGE_KEY_SET *)
type r = {
list_issue_date: TimeAbsoluteNBO.t;
hc: Hash_64.t;
}
let bin =
let open Bin in
Purpose.make_bin Taler_signatures.exchange_key_set @@ fun _purpose ->
record (fun _purpose list_issue_date hc -> { list_issue_date; hc })
|+ Purpose.field _purpose
|+ field TimeAbsoluteNBO.bin (fun t -> t.list_issue_date)
|+ field Hash_64.bin (fun t -> t.hc)
|> sealr
end
include R
include MK (R)
end
(* ### BIN IMPL END ### *)
module WithdrawRequestPS = struct
@ -812,14 +834,6 @@ module RefreshMeltConfirmationPS = struct
}
end
module ExchangeKeySetPS = struct
(* purpose.purpose = TALER_SIGNATURE_EXCHANGE_KEY_SET *)
type t = {
list_issue_date: TimeAbsoluteNBO.t;
hc: Hash_64_cstr.t;
}
end
module DepositTrackPS = struct
(* purpose.purpose = TALER_SIGNATURE_MERCHANT_TRACK_TRANSACTION *)
type t = {