diff options
Diffstat (limited to 'mini-http-server/Network/HTTP/Server/Mini.hs')
| -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 |