From b2121dda1cae0f057d2df5a65a4a4477517e0302 Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Sun, 30 Nov 2025 23:45:28 +0100
Subject: [PATCH] fix CS jsont

---
 src/api.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/api.ml b/src/api.ml
index 058a2a59..28a4c4d6 100644
--- a/src/api.ml
+++ b/src/api.ml
@@ -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