add Head_middleware.trivial

c-cube · Apr 15, 2024 · 241d9ae · 241d9ae
1 parent e136852
commit 241d9ae
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/src/core/server.ml b/src/core/server.ml
@@ -12,6 +12,7 @@ end
 module Head_middleware = struct
   type t = { handle: 'a. 'a Request.t -> 'a Request.t }
 
+  let trivial = { handle = Fun.id }
   let[@inline] apply (self : t) req = self.handle req
   let[@inline] apply' req (self : t) = self.handle req
 

diff --git a/src/core/server.mli b/src/core/server.mli
@@ -42,7 +42,11 @@ end
 module Head_middleware : sig
   type t = { handle: 'a. 'a Request.t -> 'a Request.t }
   (** A handler that takes the request, without its body,
-    and possibly modifies it. *)
+    and possibly modifies it.
+    @since NEXT_RELEASE *)
+
+  val trivial : t
+  (** Pass through *)
 
   val to_middleware : t -> Middleware.t
 end