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

merge secmod

Browse source
This commit is contained in:
swrup 2025-12-15 15:01:40 +01:00
parent 50a6137967
commit 15c132829e
11 changed files with 348 additions and 404 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/keys.ml
View file

@ -4,7 +4,7 @@ open Syntax
open Api
module String_map = Stdlib.Map.Make (Stdlib.String)
let mk_keys ~db_conn ~sm_signkey ~sm_denom ~last_issue_date =
let mk_keys ~db_conn ~sm ~last_issue_date =
let version = "0" in
let base_url = Config.base_url in
let currency = Config.currency in
@ -101,11 +101,10 @@ let jsont = ExchangeKeysResponse.jsont
let f req server _env =
Logs.info (fun m -> m "GET /keys/");
let db_conn = Vif.Server.device Devices.db_connection server in
let sm_signkey = Vif.Server.device Devices.secmod_signkey server in
let sm_denom = Vif.Server.device Devices.secmod_denom server in
let sm = Vif.Server.device Devices.secmod server in
let res =
let last_issue_date = Ptime_clock.now () |> Option.some in
let* v = mk_keys ~db_conn ~sm_signkey ~sm_denom ~last_issue_date in
let* v = mk_keys ~db_conn ~sm ~last_issue_date in
let s = Api.encode_exn jsont v in
Ok s
in