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

fix CS jsont

Browse source
This commit is contained in:
swrup 2025-11-30 23:45:28 +01:00
parent 81bbd1ce2b
commit b2121dda1c
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

@ -105,7 +105,7 @@ module DenominationKey = struct
let jsont =
let open Jsont.Object in
let rsa = Case.map "RSA" RsaDenominationKey.jsont ~dec:of_rsa in
let cs = Case.map "CS" Jsont.string ~dec:of_cs in
let cs = Case.map "CS" RsaDenominationKey.jsont ~dec:of_cs in
let enc_case = function Rsa v -> Case.value rsa v in
let cases = Case.[ make rsa; make cs ] in
map ~kind:"DenominationKey" Fun.id