diff --git a/src/mte.ml b/src/mte.ml
index 065cf57d..5dcf79a3 100644
--- a/src/mte.ml
+++ b/src/mte.ml
@@ -23,28 +23,28 @@ let hello req _server _env =
 let routes =
   let open Vif.Uri in
   let open Vif.Route in
-  let get_ path = get (path /?? any) in
+  let get path = get (path /?? any) in
   let post path jsont = post (Vif.Type.json_encoding jsont) (path /?? any) in
+  let v s = rel / s in
   let tos =
-    let v s = rel / s in
     [
-      get_ rel --> hello;
-      get_ (v "terms") --> Http_terms.terms;
-      get_ (v "privacy") --> Http_terms.privacy;
+      get rel --> hello;
+      get (v "terms") --> Http_terms.terms;
+      get (v "privacy") --> Http_terms.privacy;
     ]
   in
   let status_info =
     [
-      get_ (rel / "seed") --> Http_information.seed;
-      get_ (rel / "config") --> Http_information.config;
-      get_ (rel / "keys") --> Http_information.keys;
+      get (v "seed") --> Http_information.seed;
+      get (v "config") --> Http_information.config;
+      get (v "keys") --> Http_information.keys;
     ]
   in
   let management =
     let open Http_management in
-    let v s = rel / "management" / s in
+    let v s = v "management" / s in
     [
-      get_ (v "keys") --> Keys_get.f;
+      get (v "keys") --> Keys_get.f;
       post (v "keys") Keys_post.jsont --> Keys_post.f;
       post (v "denominations" /% string `Path / "revoke") Denom_revoke.jsont
       --> Denom_revoke.f;