From bb70c46978bf0c7e5897e8534df96016762d4e2e Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Tue, 23 Jan 2024 22:01:03 -0500
Subject: [PATCH] more detailed info string for responses

---
 src/Tiny_httpd_server.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Tiny_httpd_server.ml b/src/Tiny_httpd_server.ml
index 997baf43..444ae533 100644
--- a/src/Tiny_httpd_server.ml
+++ b/src/Tiny_httpd_server.ml
@@ -1049,9 +1049,9 @@ let client_handle_for (self : t) ~client_addr ic oc : unit =
         if not Log.dummy then
           Log.info (fun k ->
               let elapsed = B.get_time_s () -. req.start_time in
-              k "response to=%s code=%d time=%.3fs"
+              k "response to=%s path=%S code=%d time=%.3fs"
                 (str_of_sockaddr client_addr)
-                resp.code elapsed)
+                req.path resp.code elapsed)
       in
 
       (try