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

Browse source
This commit is contained in:
swrup 2025-12-06 16:54:53 +01:00
parent 190e9f2296
commit 128177eb76
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/api.ml
View file

@ -1014,7 +1014,7 @@ module DenomGroup = struct
let rsa = Case.map "RSA" RsaDenomGroup.jsont ~dec:of_rsa in
let enc_case = function Rsa v -> Case.value rsa v in
let cases = Case.[ make rsa ] in
map ~kind:"DenominationKey" Fun.id
map ~kind:"DenomGroup" Fun.id
|> case_mem "cipher" Jsont.string ~enc:Fun.id ~enc_case cases
|> finish
end