From 20cc3637c7268ceb8ca18ce55027ad8584e1cfd8 Mon Sep 17 00:00:00 2001 From: polwex Date: Sun, 22 Jun 2025 14:32:59 +0700 Subject: checkpoint --- bs5/server/middleware/logs.ml | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'bs5/server/middleware/logs.ml') diff --git a/bs5/server/middleware/logs.ml b/bs5/server/middleware/logs.ml index 6925ca4..ea69f89 100644 --- a/bs5/server/middleware/logs.ml +++ b/bs5/server/middleware/logs.ml @@ -1,12 +1,14 @@ let detailed_logger inner_handler request = let method_str = Dream.method_to_string (Dream.method_ request) in let path = Dream.target request in - let user_agent = Dream.header request "User-Agent" |> Option.value ~default:"unknown" in - let client_ip = Dream.client request in - let%lwt () = - Lwt_io.printf "%s %s %s - %s - %s\n" (Ptime_clock.now () |> Ptime.to_rfc3339) method_str path client_ip user_agent - in + (* let user_agent = *) + (* Dream.header request "User-Agent" |> Option.value ~default:"unknown" *) + (* in *) + (* let client_ip = Dream.client request in *) + (* let%lwt () = *) + (* Lwt_io.printf "%s %s %s - %s - %s\n" (Ptime_clock.now () |> Ptime.to_rfc3339) method_str path client_ip user_agent *) + (* in *) let%lwt response = inner_handler request in let status = Dream.status response |> Dream.status_to_int in - let%lwt () = Lwt_io.printf " -> %d\n" status in + let%lwt () = Lwt_io.printf "%s -%s -> %d\n" method_str path status in Lwt.return response -- cgit v1.2.3