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 =