From 50f225638dd20713e208eec55257ae5a0994bbf0 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Mon, 29 Nov 2021 22:37:19 -0500
Subject: [PATCH] Update src/Tiny_httpd.ml

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

diff --git a/src/Tiny_httpd.ml b/src/Tiny_httpd.ml
index 7688d3c3..fc5cfb93 100644
--- a/src/Tiny_httpd.ml
+++ b/src/Tiny_httpd.ml
@@ -1101,8 +1101,7 @@ let run (self:t) : (unit,_) result =
               raise e
           );
       with e ->
-        Printf.eprintf "accept raised an exception: %s"
-           (Printexc.to_string e)
+        _debug (fun k->k "accept raised an exception: %s" (Printexc.to_string e))
     done;
     Ok ()
   with e -> Error e