diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2026-05-08 21:59:08 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2026-05-08 21:59:08 +0200 |
| commit | e3ea04d8e71370032da56ad9ea66dcb82d257812 (patch) | |
| tree | 6fed059e0c394f80d800b3560980284d5d4a4113 /mini-http-server/Network/HTTP/Server/Mini.hs | |
| parent | 92a9e5663540e47d1f4563aca4365ecce781205f (diff) | |
Instrument handler blocks
Diffstat (limited to 'mini-http-server/Network/HTTP/Server/Mini.hs')
| -rw-r--r-- | mini-http-server/Network/HTTP/Server/Mini.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/mini-http-server/Network/HTTP/Server/Mini.hs b/mini-http-server/Network/HTTP/Server/Mini.hs index 266e958..fb982d7 100644 --- a/mini-http-server/Network/HTTP/Server/Mini.hs +++ b/mini-http-server/Network/HTTP/Server/Mini.hs @@ -13,6 +13,7 @@ import Network.Socket import Network.Socket.ByteString import Network.HTTP.Server.Mini.Internal.Parser +import Network.HTTP.Server.Mini.Internal.Instrument import Network.HTTP.Server.Mini.Printer import Network.HTTP.Server.Mini.Types @@ -72,5 +73,5 @@ handleConnection settings conn handler = readRequest (setMaxRequestSize settings) (recv conn) >>= \case Nothing -> return () Just req -> do - resp <- handler req - sendResponse conn resp + resp <- instrument "handler" $ handler req + instrument "sendResponse" $ sendResponse conn resp |