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-07 21:22:29 +01:00
parent af58933619
commit 17f85735f6
1 changed files with 18 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/mte.ml
View file

@ -13,6 +13,19 @@
You should have received a copy of the GNU Affero General Public License You should have received a copy of the GNU Affero General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>. *) along with this program. If not, see <https://www.gnu.org/licenses/>. *)
(* TODO mirage-crypto
is this ok?
maybe don't use the same RNG-initialization as the one used to generate keys *)
let seed req _server _env =
Logs.info (fun m -> m "GET /seed");
(* RNG is initialized by Vif.run *)
let s = Mirage_crypto_rng.generate 64 in
let open Vif.Response in
let open Syntax in
let* () = add ~field:"content-type" "application/octet-stream" in
let* () = with_string req s in
respond `OK
let config req _server _env = let config req _server _env =
Logs.info (fun m -> m "GET /config"); Logs.info (fun m -> m "GET /config");
let s = Api.(encode_exn ExchangeVersionResponse.jsont config) in let s = Api.(encode_exn ExchangeVersionResponse.jsont config) in
@ -39,7 +52,11 @@ let routes =
] ]
in in
let status_info = let status_info =
[ get_ (rel / "config") --> config; get_ (rel / "keys") --> Http_keys.f ] [
get_ (rel / "seed") --> seed;
get_ (rel / "config") --> config;
get_ (rel / "keys") --> Http_keys.f;
]
in in
let management = let management =
let open Http_management in let open Http_management in