less verbose logs for unix server

This commit is contained in:
Simon Cruanes 2024-02-28 16:24:15 -05:00
parent 7de89bd555
commit eada4cde08
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -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);