diff --git a/src/mte.ml b/src/mte.ml index 9f8d5949..c2bc7ef8 100644 --- a/src/mte.ml +++ b/src/mte.ml @@ -24,18 +24,15 @@ 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 [ - 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; + 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) (json_encoding Management.foo_jsont) + (rel / "management" / "keys" /?? nil) --> Management.keys_post; ]