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

tweak debug messages

Browse source
This commit is contained in:
Simon Cruanes 2019-11-27 16:23:03 -06:00
parent cc789ca786
commit 6af39da3a6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Tiny_httpd.ml
View file

@ -14,7 +14,7 @@ let _enable_debug b = _debug_on := b
let _debug k = let _debug k =
if !_debug_on then ( if !_debug_on then (
k (fun fmt-> k (fun fmt->
Printf.fprintf stdout "[thread %d]: " Thread.(id @@ self()); Printf.fprintf stdout "[http.thread %d]: " Thread.(id @@ self());
Printf.kfprintf (fun oc -> Printf.fprintf oc "\n%!") stdout fmt) Printf.kfprintf (fun oc -> Printf.fprintf oc "\n%!") stdout fmt)
) )