From 7f5956d96c03b5dd9f2a800aa9f938b3f32ae5a1 Mon Sep 17 00:00:00 2001 From: swrup Date: Sat, 14 Mar 2026 18:47:57 +0100 Subject: [PATCH] + todo nice routes typing --- src/mte.ml | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/mte.ml b/src/mte.ml index 50e9cfd5..24d704b1 100644 --- a/src/mte.ml +++ b/src/mte.ml @@ -20,6 +20,9 @@ let hello req _server _env = let* () = add ~field:"content-type" "text/plain" in respond `OK +(* TODO nice routes typing + to enforce json verification + to specify handlers responses data and status codes *) let routes = let open Vifu.Uri in let open Vifu.Route in @@ -76,8 +79,7 @@ let () = let storage = Mkernel.block "storage" in let service = let ipv4 = Ipaddr.V4.Prefix.of_string_exn "10.0.0.2/24" in - Mnet.stack ~name:"service" - ipv4 + Mnet.stack ~name:"service" ipv4 in Mkernel.(run [ rng; storage; service ]) @@ fun rng storage (stack, tcp, udp) () ->