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 wallet_balance_limit_without_kyc = None in
let hard_limits = [] in let hard_limits = [] in
let zero_limits = [] in let zero_limits = [] in
let denom_data_l = let* denom_data_l =
(* TODO sm-db *) (* TODO sm-db *)
(*Pg.get_denominations db_conn |> unwrap_err_caqti *) Pg.get_denominations db_conn |> unwrap_err_caqti
Sm.get_denoms_data () (*Sm.get_denoms_data ()*)
in in
let denom_data_l = let denom_data_l =
(* reverse chronological order *) (* 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 List.map denomgroup_of_denomdata l
in in
let signkeys = let* signkeys =
(* TODO sm-db (* TODO sm-db
use database signkey data / verify secmod and database are in sync *) 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 = Pg.get_active_signkeys db_conn |> unwrap_err_caqti in
let signkey_data_l = Sm.get_signkeys_data () in (*let signkey_data_l = Sm.get_signkeys_data () in*)
let signkey_data_l = let signkey_data_l =
List.sort List.sort
(fun a b -> (fun a b ->