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

add Json.FutureKeysResponse

Browse source
This commit is contained in:
swrup 2025-10-18 20:12:51 +02:00
parent 13b797f68a
commit 1674e338ac
2 changed files with 36 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

33
src/json.ml
View file

@ -192,3 +192,36 @@ module FutureDenom = struct
|> mem "denom_secmod_sig" EddsaSignature.jsont ~enc:denom_secmod_sig
|> finish
end
module FutureKeysResponse = struct
open FutureKeysResponse
let jsont =
let make future_denoms future_signkeys master_pub denom_secmod_public_key
signkey_secmod_public_key =
{
future_denoms;
future_signkeys;
master_pub;
denom_secmod_public_key;
signkey_secmod_public_key;
}
in
let future_denoms t = t.future_denoms in
let future_signkeys t = t.future_signkeys in
let master_pub t = t.master_pub in
let denom_secmod_public_key t = t.denom_secmod_public_key in
let signkey_secmod_public_key t = t.signkey_secmod_public_key in
let open Jsont.Object in
map ~kind:"FutureKeysResponse" make
|> mem "future_denoms" (Jsont.list FutureDenom.jsont) ~enc:future_denoms
|> mem "future_signkeys"
(Jsont.list FutureSignKey.jsont)
~enc:future_signkeys
|> mem "master_pub" EddsaPublicKey.jsont ~enc:master_pub
|> mem "denom_secmod_public_key" EddsaPublicKey.jsont
~enc:denom_secmod_public_key
|> mem "signkey_secmod_public_key" EddsaPublicKey.jsont
~enc:signkey_secmod_public_key
|> finish
end