From 7ac3ae171b0aed4975e43c471f0a007e265d64c2 Mon Sep 17 00:00:00 2001 From: swrup Date: Sun, 30 Nov 2025 11:38:50 +0100 Subject: [PATCH] ~ --- src/mte.ml | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/src/mte.ml b/src/mte.ml index 0cd5dcf6..ffb03ebc 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 /?? nil) --> hello; + get_ (rel / "terms" /?? nil) --> Static.terms; + get_ (rel / "privacy" /?? nil) --> Static.privacy; + get_ (rel / "management" / "keys" /?? nil) --> Management.keys_get; + post (rel / "management" / "keys" /?? nil) any --> Management.keys_post; ] let () =