From 6e54ee69b5096b817b3fc226ed366c5d2121233c Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 27 May 2020 22:29:21 -0400
Subject: [PATCH] fix: avoid spamming response

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

diff --git a/src/Tiny_httpd.ml b/src/Tiny_httpd.ml
index d901294c..a409cea2 100644
--- a/src/Tiny_httpd.ml
+++ b/src/Tiny_httpd.ml
@@ -634,7 +634,8 @@ module Response = struct
       ) else self.headers
     in
     let self = {self with headers; body} in
-    _debug (fun k->k "output response: %s" (Format.asprintf "%a" pp self));
+    _debug (fun k->k "output response: %s"
+               (Format.asprintf "%a" pp {self with body=`String "<…>"}));
     List.iter (fun (k,v) -> Printf.fprintf oc "%s: %s\r\n" k v) headers;
     output_string oc "\r\n";
     begin match body with