From bc34363f606d194a40ee955e7e75ea0fe58f563b Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Tue, 16 Apr 2024 14:45:21 -0400
Subject: [PATCH] expose Bad_req in Server

---
 src/core/server.ml  | 2 ++
 src/core/server.mli | 3 +++
 2 files changed, 5 insertions(+)

diff --git a/src/core/server.ml b/src/core/server.ml
index ded29518..2ddfd50c 100644
--- a/src/core/server.ml
+++ b/src/core/server.ml
@@ -2,6 +2,8 @@ open Common_
 
 type resp_error = Response_code.t * string
 
+exception Bad_req = Common_.Bad_req
+
 module Middleware = struct
   type handler = IO.Input.t Request.t -> resp:(Response.t -> unit) -> unit
   type t = handler -> handler
diff --git a/src/core/server.mli b/src/core/server.mli
index ee908244..05ef6392 100644
--- a/src/core/server.mli
+++ b/src/core/server.mli
@@ -8,6 +8,9 @@
     @since 0.13
 *)
 
+exception Bad_req of int * string
+(** Exception raised to exit request handlers with a code+error message *)
+
 (** {2 Middlewares}
 
     A middleware can be inserted in a handler to modify or observe