From eada4cde08208dd4e38e8fad1586f42565c7f502 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Wed, 28 Feb 2024 16:24:15 -0500 Subject: [PATCH] less verbose logs for unix server --- src/unix/tiny_httpd_unix.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/unix/tiny_httpd_unix.ml b/src/unix/tiny_httpd_unix.ml index 37f5f921..f1de3936 100644 --- a/src/unix/tiny_httpd_unix.ml +++ b/src/unix/tiny_httpd_unix.ml @@ -78,7 +78,7 @@ module Unix_tcp_server_ = struct (* how to handle a single client *) let handle_client_unix_ (client_sock : Unix.file_descr) (client_addr : Unix.sockaddr) : unit = - Log.info (fun k -> + Log.debug (fun k -> k "t[%d]: serving new client on %s" (Thread.id @@ Thread.self ()) (Util.show_sockaddr client_addr)); @@ -117,7 +117,7 @@ module Unix_tcp_server_ = struct self.new_thread (fun () -> try handle_client_unix_ client_sock client_addr; - Log.info (fun k -> + Log.debug (fun k -> k "t[%d]: done with client on %s, exiting" (Thread.id @@ Thread.self ()) @@ Util.show_sockaddr client_addr);