diff --git a/src/management.ml b/src/management.ml new file mode 100644 index 00000000..83654680 --- /dev/null +++ b/src/management.ml @@ -0,0 +1,7 @@ +(* TODO *) +let keys req _server _env = + let open Vif.Response in + let open Syntax in + let* () = with_string req "keys .. \n" in + let* () = add ~field:"content-type" "application/json" in + respond `OK diff --git a/src/mte.ml b/src/mte.ml index 7b566308..a570a185 100644 --- a/src/mte.ml +++ b/src/mte.ml @@ -112,6 +112,7 @@ let routes = [ get (rel /?? nil) --> hello; get (rel / "terms" /?? nil) --> Static.terms; get (rel / "privacy" /?? nil) --> Static.privacy; + get (rel / "management" / "keys" /?? nil) --> Management.keys; ] let () =