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

debug msg

Browse source
This commit is contained in:
Simon Cruanes 2020-05-27 13:11:32 -04:00
parent 1d309abca6
commit 5c56cb7f1e
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Tiny_httpd.ml
View file

@ -457,7 +457,9 @@ module Request = struct
let line = Byte_stream.read_line ~buf bs in let line = Byte_stream.read_line ~buf bs in
let meth, path = let meth, path =
try Scanf.sscanf line "%s %s HTTP/1.1\r" (fun x y->x,y) try Scanf.sscanf line "%s %s HTTP/1.1\r" (fun x y->x,y)
with _ -> raise (Bad_req (400, "Invalid request line")) with _ ->
_debug (fun k->k "invalid request line: `%s`" line);
raise (Bad_req (400, "Invalid request line"))
in in
let meth = Meth.of_string meth in let meth = Meth.of_string meth in
_debug (fun k->k "got meth: %s, path %S" (Meth.to_string meth) path); _debug (fun k->k "got meth: %s, path %S" (Meth.to_string meth) path);