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-06 18:30:32 +01:00
parent 8812531612
commit c83eb882ee
4 changed files with 70 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/http_keys.ml
View file

@ -190,7 +190,10 @@ let mk_keys ~db_conn (module Sm : Secmod.S) ~last_issue_date =
let recoup = (* TODO /recoup *) [] in
let* global_fees =
(* WIP DEBUG
Pg.get_global_fees db_conn ~start_date:Timestamp.zero |> unwrap_err_caqti
*)
Ok []
in
let* auditors =
(* TODO /auditors/$AUDITOR_PUB/$H_DENOM_PUB *)
@ -241,7 +244,7 @@ let jsont = ExchangeKeysResponse.jsont
(* TODO query param ?last_issue_date *)
let f req server _env =
Logs.info (fun m -> m "GET /keys/");
Logs.info (fun m -> m "GET /keys");
let db_conn = Vif.Server.device Devices.db_connection server in
let sm = Vif.Server.device Devices.secmod server in
let res =