From b6583d69a87362da763342fda774b5b1d9da2412 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Mon, 5 May 2025 10:11:40 -0400 Subject: [PATCH] head middlewares --- src/tiny_httpd/nanoev_tiny_httpd.ml | 5 +++-- src/tiny_httpd/nanoev_tiny_httpd.mli | 1 + 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/src/tiny_httpd/nanoev_tiny_httpd.ml b/src/tiny_httpd/nanoev_tiny_httpd.ml index e97905b..7d6b56e 100644 --- a/src/tiny_httpd/nanoev_tiny_httpd.ml +++ b/src/tiny_httpd/nanoev_tiny_httpd.ml @@ -262,7 +262,7 @@ end let create ?enable_logging ?(masksigpipe = not Sys.win32) ?max_connections ?max_buf_pool_size ?(timeout = 0.0) ?buf_size ?(get_time_s = Unix.gettimeofday) ?(addr = "127.0.0.1") ?(port = 8080) ?sock - ?middlewares ~new_thread () : TH.Server.t = + ?head_middlewares ?middlewares ~new_thread () : TH.Server.t = let max_connections = get_max_connection_ ?max_connections () in let max_pool_size = match max_buf_pool_size with @@ -300,4 +300,5 @@ let create ?enable_logging ?(masksigpipe = not Sys.win32) ?max_connections let tcp_server () = tcp_server_builder end in let backend = (module B : TH.Server.IO_BACKEND) in - TH.Server.create_from ?enable_logging ?buf_size ?middlewares ~backend () + TH.Server.create_from ?enable_logging ?buf_size ?head_middlewares ?middlewares + ~backend () diff --git a/src/tiny_httpd/nanoev_tiny_httpd.mli b/src/tiny_httpd/nanoev_tiny_httpd.mli index 1cf0a2a..cf70efb 100644 --- a/src/tiny_httpd/nanoev_tiny_httpd.mli +++ b/src/tiny_httpd/nanoev_tiny_httpd.mli @@ -11,6 +11,7 @@ val create : ?addr:string -> ?port:int -> ?sock:Unix.file_descr -> + ?head_middlewares:TH.Server.Head_middleware.t list -> ?middlewares:([ `Encoding | `Stage of int ] * TH.Server.Middleware.t) list -> new_thread:((unit -> unit) -> unit) -> unit ->