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

wip /management

Browse source
This commit is contained in:
swrup 2025-10-16 10:18:22 +02:00
parent b27ebea6ee
commit 112ece6d9a
9 changed files with 158 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/json.ml
View file

@ -79,6 +79,7 @@ let amount_jsont =
module EddsaPublicKey = struct
open EddsaPublicKey
(* todo?: rewrite with of_of_string *)
let jsont =
let dec = Jsont.Base.dec_result of_string in
let enc = Jsont.Base.enc to_string in
@ -89,6 +90,15 @@ module EddsaSignature = struct
let jsont = Jsont.string
end
module RsaPublicKey = struct
open RsaPublicKey
let jsont =
let dec = Jsont.Base.dec_result of_string in
let enc = Jsont.Base.enc to_string in
Jsont.Base.string (Jsont.Base.map ~kind:"RsaPublicKey" ~dec ~enc ())
end
module RsaDenominationKey = struct
open RsaDenominationKey
@ -98,7 +108,7 @@ module RsaDenominationKey = struct
let rsa_pub v = v.rsa_pub in
Jsont.Object.map ~kind:"RsaDenominationKey" make
|> Jsont.Object.mem "age_mask" Jsont.int ~enc:age_mask
|> Jsont.Object.mem "rsa_pub" Jsont.string ~enc:rsa_pub
|> Jsont.Object.mem "rsa_pub" RsaPublicKey.jsont ~enc:rsa_pub
|> Jsont.Object.finish
end