From 0bbb08be1b03b3615a7c9b8b0b202ccb967ac259 Mon Sep 17 00:00:00 2001 From: swrup Date: Sun, 30 Nov 2025 11:38:50 +0100 Subject: [PATCH] --- src/mte.ml | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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 () =