From 6af39da3a60e0a540ec365a7a99726388a072b62 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 27 Nov 2019 16:23:03 -0600
Subject: [PATCH] tweak debug messages

---
 src/Tiny_httpd.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Tiny_httpd.ml b/src/Tiny_httpd.ml
index 6232bd6c..9a59be85 100644
--- a/src/Tiny_httpd.ml
+++ b/src/Tiny_httpd.ml
@@ -14,7 +14,7 @@ let _enable_debug b = _debug_on := b
 let _debug k =
   if !_debug_on then (
     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)
   )