diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2026-06-28 12:52:43 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2026-06-28 12:52:43 +0200 |
| commit | 31f2e0ca24318de69f0ab3d04a573901b4fd5acc (patch) | |
| tree | 585d01200d74760483147a987857246301c96160 | |
| parent | 352f64c7171cf62f2e1a7578fb8e786dead90d9f (diff) | |
Stop the instrument print spam
| -rw-r--r-- | mini-http-server/Network/HTTP/Server/Mini.hs | 4 |
1 files 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 |