From 199bcff68d271f61c83616064f1d5340c9f198cc Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Tue, 18 Jun 2024 16:28:18 -0400
Subject: [PATCH] more debug

---
 src/core/request.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/core/request.ml b/src/core/request.ml
index 5bab3a2..800949e 100644
--- a/src/core/request.ml
+++ b/src/core/request.ml
@@ -109,7 +109,7 @@ let parse_req_start ~client_addr ~get_time_s ~buf (bs : IO.Input.t) :
     unit t option resp_result =
   try
     let line = IO.Input.read_line_using ~buf bs in
-    Log.debug (fun k -> k "parse request line: %s" line);
+    Log.debug (fun k -> k "parse request line: %S" line);
     let start_time = get_time_s () in
     let meth, path, version =
       try
@@ -121,7 +121,7 @@ let parse_req_start ~client_addr ~get_time_s ~buf (bs : IO.Input.t) :
           match http_version with
           | "HTTP/1.1" -> 1
           | "HTTP/1.0" -> 0
-          | v -> invalid_arg (spf "unsupported HTTP version: %s" v)
+          | v -> invalid_arg (spf "unsupported HTTP version: %S" v)
         in
         meth, path, version
       with
@@ -134,7 +134,7 @@ let parse_req_start ~client_addr ~get_time_s ~buf (bs : IO.Input.t) :
         raise (Bad_req (400, "Invalid request line"))
     in
     let meth = Meth.of_string meth in
-    Log.debug (fun k -> k "got meth: %s, path %S" (Meth.to_string meth) path);
+    Log.debug (fun k -> k "got meth: %S, path %S" (Meth.to_string meth) path);
     let headers = Headers.parse_ ~buf bs in
     let host =
       match Headers.get "Host" headers with
@@ -146,7 +146,7 @@ let parse_req_start ~client_addr ~get_time_s ~buf (bs : IO.Input.t) :
     let query =
       match Util.parse_query query with
       | Ok l -> l
-      | Error e -> bad_reqf 400 "invalid query: %s" e
+      | Error e -> bad_reqf 400 "invalid query: %S" e
     in
     let req =
       {