diff --git a/src/mte.ml b/src/mte.ml index 0cd5dcf6..2c8edc3c 100644 --- a/src/mte.ml +++ b/src/mte.ml @@ -24,12 +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 / "management" / "keys" /?? nil) --> Management.keys_get; - post any (rel / "management" / "keys" /?? nil) --> Management.keys_post; + get_ (rel / "management" / "keys" /?? nil) --> Management.keys_get; + post (rel / "management" / "keys" /?? nil) any --> Management.keys_post; ] let () =