simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-07 11:45:36 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

less verbose logs for unix server

Browse source
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
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/unix/tiny_httpd_unix.ml
View file

@ -78,7 +78,7 @@ module Unix_tcp_server_ = struct
(* how to handle a single client *) (* how to handle a single client *)
let handle_client_unix_ (client_sock : Unix.file_descr) let handle_client_unix_ (client_sock : Unix.file_descr)
(client_addr : Unix.sockaddr) : unit = (client_addr : Unix.sockaddr) : unit =
Log.info (fun k -> Log.debug (fun k ->
k "t[%d]: serving new client on %s" k "t[%d]: serving new client on %s"
(Thread.id @@ Thread.self ()) (Thread.id @@ Thread.self ())
(Util.show_sockaddr client_addr)); (Util.show_sockaddr client_addr));
@ -117,7 +117,7 @@ module Unix_tcp_server_ = struct
self.new_thread (fun () -> self.new_thread (fun () ->
try try
handle_client_unix_ client_sock client_addr; handle_client_unix_ client_sock client_addr;
Log.info (fun k -> Log.debug (fun k ->
k "t[%d]: done with client on %s, exiting" k "t[%d]: done with client on %s, exiting"
(Thread.id @@ Thread.self ()) (Thread.id @@ Thread.self ())
@@ Util.show_sockaddr client_addr); @@ Util.show_sockaddr client_addr);