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

+ rename

Browse source
This commit is contained in:
swrup 2026-02-18 18:16:31 +01:00
parent 8caf83e90a
commit 02ac9bf031
4 changed files with 37 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/http_information.ml
View file

@ -235,7 +235,7 @@ let jsont = ExchangeKeysResponse.jsont
let keys req server _env =
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 keys = Vif.Server.device Devices.keys server in
let res =
let* last_issue_date =
match Vif.Queries.get req "last_issue_date" with
@ -247,7 +247,7 @@ let keys req server _env =
"invalid `?last_issue_date` query param, int_of_string failure"
| Some n -> Ok (Some (Time.Timestamp.of_s (Int64.of_int n))))
in
let* v = mk_keys ~db_conn sm ~last_issue_date in
let* v = mk_keys ~db_conn keys ~last_issue_date in
let s = Api.encode_exn jsont v in
Ok s
in