diff --git a/src/core/server.ml b/src/core/server.ml
index 82e1a6f8..f64ed167 100644
--- 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
index 313c76a6..ee908244 100644
--- 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