diff --git a/src/mte.ml b/src/mte.ml index 39a9d7bc..489a2967 100644 --- a/src/mte.ml +++ b/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 ();