+ wip /keys

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