From ae9de6c67729fcefab45843acc9b4e5250e78b3b Mon Sep 17 00:00:00 2001 From: swrup Date: Tue, 3 Feb 2026 17:49:25 +0100 Subject: [PATCH] --- src/http_keys.ml | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/http_keys.ml b/src/http_keys.ml index 9c9957d7..b2a09764 100644 --- a/src/http_keys.ml +++ b/src/http_keys.ml @@ -96,10 +96,10 @@ let mk_keys ~db_conn (module Sm : Secmod.S) ~last_issue_date = let wallet_balance_limit_without_kyc = None in let hard_limits = [] in let zero_limits = [] in - let denom_data_l = + let* denom_data_l = (* TODO sm-db *) - (*Pg.get_denominations db_conn |> unwrap_err_caqti *) - Sm.get_denoms_data () + Pg.get_denominations db_conn |> unwrap_err_caqti + (*Sm.get_denoms_data ()*) in let denom_data_l = (* reverse chronological order *) @@ -138,11 +138,11 @@ let mk_keys ~db_conn (module Sm : Secmod.S) ~last_issue_date = List.map denomgroup_of_denomdata l in - let signkeys = + let* signkeys = (* TODO sm-db use database signkey data / verify secmod and database are in sync *) - (*let+ signkey_data_l = Pg.get_active_signkeys db_conn |> unwrap_err_caqti in*) - let signkey_data_l = Sm.get_signkeys_data () in + let+ signkey_data_l = Pg.get_active_signkeys db_conn |> unwrap_err_caqti in + (*let signkey_data_l = Sm.get_signkeys_data () in*) let signkey_data_l = List.sort (fun a b ->