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

Browse source
This commit is contained in:
swrup 2026-03-14 18:47:57 +01:00
parent a5e132dc1b
commit 82741036cb
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/mte.ml
View file

@ -20,6 +20,9 @@ let hello req _server _env =
let* () = add ~field:"content-type" "text/plain" in let* () = add ~field:"content-type" "text/plain" in
respond `OK respond `OK
(* TODO nice routes typing
to enforce json verification
to specify handlers responses data and status codes *)
let routes = let routes =
let open Vifu.Uri in let open Vifu.Uri in
let open Vifu.Route in let open Vifu.Route in
@ -76,8 +79,7 @@ let () =
let storage = Mkernel.block "storage" in let storage = Mkernel.block "storage" in
let service = let service =
let ipv4 = Ipaddr.V4.Prefix.of_string_exn "10.0.0.2/24" in let ipv4 = Ipaddr.V4.Prefix.of_string_exn "10.0.0.2/24" in
Mnet.stack ~name:"service" Mnet.stack ~name:"service" ipv4
ipv4
in in
Mkernel.(run [ rng; storage; service ]) Mkernel.(run [ rng; storage; service ])
@@ fun rng storage (stack, tcp, udp) () -> @@ fun rng storage (stack, tcp, udp) () ->