From 67a36053b04cf03cb6420aa27183ba86d21471a2 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Sun, 16 Feb 2025 22:10:22 -0500 Subject: [PATCH] fix --- src/tiny_httpd/nanoev_tiny_httpd.ml | 9 ++++----- src/tiny_httpd/nanoev_tiny_httpd.mli | 1 - 2 files changed, 4 insertions(+), 6 deletions(-) diff --git a/src/tiny_httpd/nanoev_tiny_httpd.ml b/src/tiny_httpd/nanoev_tiny_httpd.ml index 3542c7b..7369fde 100644 --- a/src/tiny_httpd/nanoev_tiny_httpd.ml +++ b/src/tiny_httpd/nanoev_tiny_httpd.ml @@ -290,10 +290,9 @@ open struct slice.len <- 0 end -let create ?enable_logging ?(masksigpipe = not Sys.win32) ?max_connections - ?(timeout = 0.0) ?buf_size ?(get_time_s = Unix.gettimeofday) - ?(addr = "127.0.0.1") ?(port = 8080) ?sock ?middlewares ~new_thread () : - TH.Server.t = +let create ?(masksigpipe = not Sys.win32) ?max_connections ?(timeout = 0.0) + ?buf_size ?(get_time_s = Unix.gettimeofday) ?(addr = "127.0.0.1") + ?(port = 8080) ?sock ?middlewares ~new_thread () : TH.Server.t = let max_connections = get_max_connection_ ?max_connections () in let server = { @@ -326,4 +325,4 @@ 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 ?buf_size ?middlewares ~backend () diff --git a/src/tiny_httpd/nanoev_tiny_httpd.mli b/src/tiny_httpd/nanoev_tiny_httpd.mli index 5a9118c..f0cd9af 100644 --- a/src/tiny_httpd/nanoev_tiny_httpd.mli +++ b/src/tiny_httpd/nanoev_tiny_httpd.mli @@ -1,7 +1,6 @@ module TH = Tiny_httpd_core val create : - ?enable_logging:bool -> ?masksigpipe:bool -> ?max_connections:int -> ?timeout:float ->