From b832aef67473bfd9915340652448d12ee0f2e62f Mon Sep 17 00:00:00 2001 From: swrup Date: Thu, 16 Oct 2025 10:18:22 +0200 Subject: [PATCH] --- src/management.ml | 7 +++++++ src/mte.ml | 1 + 2 files changed, 8 insertions(+) create mode 100644 src/management.ml 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 () =