src/mte.ml

@@ -26,14 +26,19 @@ 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 v s = rel / s in
+  let static =
     [
       get_ rel --> hello;
       get_ (v "terms") --> Static.terms;
       get_ (v "privacy") --> Static.privacy;
     ]
   in
+  let information =
+    [
+      get_ (v "keys" /% string `Query / "") --> Information.keys;
+    ]
+  in
   let management =
     let open Management in
     let v s = rel / "management" / s in
@@ -56,7 +61,7 @@ let routes =
       post (v "partners") Partners.jsont --> Partners.f;
     ]
   in
-  static @ management
+  static @ information @ management
 
 let () =
   Util.Log_reporter.setup ();