diff --git a/src/api.ml b/src/api.ml index 81e2ba7f..01e37c8b 100644 --- a/src/api.ml +++ b/src/api.ml @@ -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