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

get dn/sk data from secmod

Browse source
This commit is contained in:
swrup 2026-01-24 01:30:30 +01:00
parent ee25ba06df
commit b607bf9f82
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/http_keys.ml
View file

@ -95,7 +95,11 @@ 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 = Pg.get_denominations db_conn |> unwrap_err_caqti in let denom_data_l =
(* TODO sm-db *)
(*Pg.get_denominations db_conn |> unwrap_err_caqti *)
Sm.get_denoms_data ()
in
(* TODO check order!! *) (* TODO check order!! *)
let denom_data_l = let denom_data_l =
List.sort List.sort
@ -118,7 +122,7 @@ let mk_keys ~db_conn (module Sm : Secmod.S) ~last_issue_date =
in in
let signkeys = let signkeys =
(* TODO (* 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