From 6fcc92f30976daffa6604c8886d6f34be48e70a5 Mon Sep 17 00:00:00 2001 From: swrup Date: Thu, 22 Jan 2026 03:25:54 +0100 Subject: [PATCH] --- src/mte.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/mte.ml b/src/mte.ml index c6c3424e..d2767816 100644 --- a/src/mte.ml +++ b/src/mte.ml @@ -26,7 +26,7 @@ let routes = let open Vif.Type in let get_ path = get (path /?? nil) in let post path jsont = post (json_encoding jsont) (path /?? nil) in - let static = + let tos = let v s = rel / s in [ get_ rel --> hello; @@ -34,6 +34,7 @@ let routes = get_ (v "privacy") --> Static.privacy; ] in + let status_info = [ get_ (rel / "keys") --> Http_keys.f ] in let management = let open Http_management in let v s = rel / "management" / s in @@ -56,7 +57,7 @@ let routes = post (v "partners") Partners.jsont --> Partners.f; ] in - static @ management + tos @ status_info @ management let () = Util.Log_reporter.setup ();