From 241d9aeaf18cedfff17b672b006bbd2862252b4b Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Mon, 15 Apr 2024 12:09:37 -0400
Subject: [PATCH] add `Head_middleware.trivial`

---
 src/core/server.ml  | 1 +
 src/core/server.mli | 6 +++++-
 2 files changed, 6 insertions(+), 1 deletion(-)

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