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

use logs + add static.ml + fmt

Browse source
This commit is contained in:
swrup 2025-11-29 19:36:35 +01:00
parent ad648178ab
commit cf4da6b382
15 changed files with 246 additions and 196 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/management.ml
View file

@ -99,7 +99,7 @@ let mk_future_keys_response (secmod_signkey : Secmod_signkey.t)
signkey_secmod_public_key;
}
let keys req server _env =
let keys_get req server _env =
let open Vif.Response in
let open Syntax in
let secmod_signkey = Vif.Server.device Devices.secmod_signkey server in
@ -113,6 +113,6 @@ let keys req server _env =
let keys_post req _server _env =
let open Vif.Response in
let open Syntax in
let* () = with_string req "todo~~" in
let* () = with_string req {||} in
let* () = add ~field:"content-type" "application/json" in
respond `OK