From 10fc211c4197b5a6d5ae0ec685d06598b1dde251 Mon Sep 17 00:00:00 2001 From: swrup Date: Sat, 29 Nov 2025 19:36:35 +0100 Subject: [PATCH] --- src/mte.ml | 26 ++++++++++++++++---------- 1 file changed, 16 insertions(+), 10 deletions(-) diff --git a/src/mte.ml b/src/mte.ml index 6283a4fd..36795e87 100644 --- a/src/mte.ml +++ b/src/mte.ml @@ -108,17 +108,23 @@ let routes = let open Vif.Uri in let open Vif.Route in let open Vif.Type in - [ - post any + let posts = + [ (*(json_encoding Api.MasterSignatures.jsont)*) - (rel / "management" / "keys" /?? nil) - --> 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 (rel / "db_test" /?? nil) --> Database.test; - get (rel / "db_activate" /?? nil) --> Database.test_activate; - ] + post any (rel / "management" / "keys" /?? nil) --> Management.keys_post; + ] + in + let gets = + [ + get (rel /?? nil) --> hello; get (rel / "terms" /?? nil) --> Static.terms; + get (rel / "privacy" /?? nil) --> Static.privacy; + get (rel / "management" / "keys" /?? nil) --> Management.keys; + get (rel / "db_test" /?? nil) --> Database.test; + get (rel / "db_activate" /?? nil) --> Database.test_activate; + ] + in + posts @ gets +(*gets @ posts*) let () = let cfg =