src/json.ml

@@ -86,29 +86,16 @@ module RsaDenominationKey = struct
     |> Jsont.Object.finish
 end
 
-module CSDenominationKey = struct
-  open CSDenominationKey
-
-  let jsont =
-    let make age_mask cs_pub = { age_mask; cs_pub } in
-    let age_mask v = v.age_mask in
-    let cs_pub v = v.cs_pub in
-    Jsont.Object.map ~kind:"CSDenominationKey" make
-    |> Jsont.Object.mem "age_mask" Jsont.int ~enc:age_mask
-    |> Jsont.Object.mem "cs_pub" Jsont.string ~enc:cs_pub
-    |> Jsont.Object.finish
-end
-
 module DenominationKey = struct
   open DenominationKey
 
   let rsa v = Rsa v
-  let cs v = CS v
+  let cs _v = Fmt.failwith "CS denomination not implemented"
 
   let jsont =
     let open Jsont.Object in
     let rsa = Case.map "RSA" RsaDenominationKey.jsont ~dec:rsa in
-    let cs = Case.map "CS" CSDenominationKey.jsont ~dec:cs in
+    let cs = Case.map "CS" Jsont.string ~dec:cs in
     let enc_case = function
       | Rsa v -> Case.value rsa v
       | CS v -> Case.value cs v