From e8c7d3c879492d0bebc13f6f75d7d9e4e011afb5 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Tue, 18 Jun 2024 16:26:15 -0400 Subject: [PATCH] better error messages --- src/core/request.ml | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/core/request.ml b/src/core/request.ml index 1a3275df..5bab3a23 100644 --- a/src/core/request.ml +++ b/src/core/request.ml @@ -126,10 +126,11 @@ let parse_req_start ~client_addr ~get_time_s ~buf (bs : IO.Input.t) : meth, path, version with | Invalid_argument msg -> - Log.error (fun k -> k "invalid request line: `%s`: %s" line msg); + Log.error (fun k -> k "invalid request line: %S: %s" line msg); raise (Bad_req (400, "Invalid request line")) - | _ -> - Log.error (fun k -> k "invalid request line: `%s`" line); + | exn -> + Log.error (fun k -> + k "invalid request line: %S: %s" line (Printexc.to_string exn)); raise (Bad_req (400, "Invalid request line")) in let meth = Meth.of_string meth in