format

.ocamlformat

@@ -1,4 +1,4 @@
-version = 0.26.2
+version = 0.27.0
 profile=conventional
 margin=80
 if-then-else=k-r

src/core/route.ml

@@ -97,15 +97,27 @@ let rec to_url_rec : type b. Buffer.t -> (b, string) t -> b =
   match route with
   | Fire -> Buffer.contents buf
   | Rest { url_encoded = _ } ->
-    (fun str -> Buffer.add_string buf str; Buffer.contents buf)
+    fun str ->
+      Buffer.add_string buf str;
+      Buffer.contents buf
   | Compose (comp, rest) ->
     (match comp with
-    | Exact s -> Buffer.add_string buf s; Buffer.add_char buf '/'; to_url_rec buf rest
+    | Exact s ->
-    | Int -> (fun i -> Printf.bprintf buf "%d/" i; to_url_rec buf rest)
+      Buffer.add_string buf s;
+      Buffer.add_char buf '/';
+      to_url_rec buf rest
+    | Int ->
+      fun i ->
+        Printf.bprintf buf "%d/" i;
+        to_url_rec buf rest
     | String ->
-      (fun s -> Printf.bprintf buf "%s/" s; to_url_rec buf rest)
+      fun s ->
+        Printf.bprintf buf "%s/" s;
+        to_url_rec buf rest
     | String_urlencoded ->
-      (fun s -> Printf.bprintf buf "%s/" (Util.percent_encode s); to_url_rec buf rest))
+      fun s ->
+        Printf.bprintf buf "%s/" (Util.percent_encode s);
+        to_url_rec buf rest)
 
 let to_url (h : ('a, string) t) : 'a =
   let buf = Buffer.create 16 in

src/core/route.mli

@@ -1,7 +1,7 @@
 (** Routing
 
-    Basic type-safe routing of handlers based on URL paths. This is optional,
+    Basic type-safe routing of handlers based on URL paths. This is optional, it
-    it is possible to only define the root handler with something like
+    is possible to only define the root handler with something like
     {{:https://github.com/anuragsoni/routes/} Routes}.
     @since 0.6 *)
 
@@ -27,18 +27,18 @@ val return : ('a, 'a) t
 (** Matches the empty path. *)
 
 val rest_of_path : (string -> 'a, 'a) t
-(** Matches a string, even containing ['/']. This will match
+(** Matches a string, even containing ['/']. This will match the entirety of the
-      the entirety of the remaining route.
+    remaining route.
     @since 0.7 *)
 
 val rest_of_path_urlencoded : (string -> 'a, 'a) t
-(** Matches a string, even containing ['/'], and URL-decode it (piecewise).
+(** Matches a string, even containing ['/'], and URL-decode it (piecewise). This
-      This will match the entirety of the remaining route.
+    will match the entirety of the remaining route.
     @since 0.7 *)
 
 val ( @/ ) : ('a, 'b) comp -> ('b, 'c) t -> ('a, 'c) t
-(** [comp / route] matches ["foo/bar/…"] iff [comp] matches ["foo"],
+(** [comp / route] matches ["foo/bar/…"] iff [comp] matches ["foo"], and [route]
-      and [route] matches ["bar/…"]. *)
+    matches ["bar/…"]. *)
 
 val exact_path : string -> ('a, 'b) t -> ('a, 'b) t
 (** [exact_path "foo/bar/..." r] is equivalent to