+ denomgroup_of_denomdata

src/http_keys.ml

@@ -4,6 +4,43 @@ open Syntax
 open Api
 module String_map = Stdlib.Map.Make (Stdlib.String)
 
+let denomgroup_of_denomdata
+    Denom_data.
+      {
+        pub;
+        value;
+        stamp_start;
+        stamp_expire_withdraw;
+        stamp_expire_deposit;
+        stamp_expire_legal;
+        fee_withdraw;
+        fee_deposit;
+        fee_refresh;
+        fee_refund;
+        age_mask;
+        h_pub;
+        master_sig;
+        revoked_sig;
+      } =
+  let master_sig = match master_sig with None -> assert false | Some v -> v in
+  let denoms =
+    [
+      RsaDenom.
+        {
+          rsa_pub= pub;
+          master_sig;
+          stamp_start;
+          stamp_expire_withdraw;
+          stamp_expire_deposit;
+          stamp_expire_legal;
+          lost= None;
+        };
+    ]
+  in
+  DenomGroup.Rsa
+    RsaDenomGroup.
+      { denoms; value; fee_withdraw; fee_deposit; fee_refresh; fee_refund }
+
 let mk_keys ~db_conn ~sm ~last_issue_date =
   let version = "0" in
   let base_url = Config.base_url in
@@ -56,6 +93,10 @@ let mk_keys ~db_conn ~sm ~last_issue_date =
   let wallet_balance_limit_without_kyc = None in
   let hard_limits = [] in
   let zero_limits = [] in
+  let* denominations =
+    let+ denom_data_l = Pg.get_denominations db_conn |> unwrap_err_caqti in
+    List.map denomgroup_of_denomdata denom_data_l
+  in
   (*
       {
         version;