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 ();