From 31f2e0ca24318de69f0ab3d04a573901b4fd5acc Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sun, 28 Jun 2026 11:52:43 +0100
Subject: Stop the instrument print spam

---
 mini-http-server/Network/HTTP/Server/Mini.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/mini-http-server/Network/HTTP/Server/Mini.hs b/mini-http-server/Network/HTTP/Server/Mini.hs
index fb982d7..5d46318 100644
--- a/mini-http-server/Network/HTTP/Server/Mini.hs
+++ b/mini-http-server/Network/HTTP/Server/Mini.hs
@@ -73,5 +73,5 @@ handleConnection settings conn handler =
   readRequest (setMaxRequestSize settings) (recv conn) >>= \case
     Nothing -> return ()
     Just req -> do
-      resp <- instrument "handler" $ handler req
-      instrument "sendResponse" $ sendResponse conn resp
+      resp <- {- instrument "handler" $ -} handler req
+      id $ {- instrument "sendResponse" $ -} sendResponse conn resp
-- 
cgit v1.3.1