swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

clean up offline tool

Browse source
This commit is contained in:
swrup 2025-11-30 14:23:55 +01:00
parent cf4da6b382
commit 4568b1bd4c
8 changed files with 122 additions and 155 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/management.ml
View file

@ -109,10 +109,3 @@ let keys_get req server _env =
let* () = with_string req s in
let* () = add ~field:"content-type" "application/json" in
respond `OK
let keys_post req _server _env =
let open Vif.Response in
let open Syntax in
let* () = with_string req {||} in
let* () = add ~field:"content-type" "application/json" in
respond `OK

15
src/mte.ml
View file

@ -23,17 +23,12 @@ let hello req _server _env =
let routes =
let open Vif.Uri in
let open Vif.Route in
let open Vif.Type in
(* just for alignement *)
let get_ = get in
let post = Fun.flip post in
(*let open Vif.Type in*)
[
get_ (rel /?? nil) --> hello;
get_ (rel / "terms" /?? nil) --> Static.terms;
get_ (rel / "privacy" /?? nil) --> Static.privacy;
get_ (rel / "test" /?? nil) --> Database.test_activate;
get_ (rel / "management" / "keys" /?? nil) --> Management.keys_get;
post (rel / "management" / "keys" /?? nil) any --> Management.keys_post;
get (rel /?? nil) --> hello;
get (rel / "terms" /?? nil) --> Static.terms;
get (rel / "privacy" /?? nil) --> Static.privacy;
get (rel / "management" / "keys" /?? nil) --> Management.keys_get;
]
let () =