swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2026-02-03 17:49:25 +01:00
parent 7a0ac3b13b
commit ae9de6c677
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/http_keys.ml
View file

@ -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 ->