@@ -19,6 +19,11 @@ addTrackingHeaders :: ReqtrackInfo -> Response -> Response
1919addTrackingHeaders rti = mapResponseHeaders f
2020 where f hdrs = mkTrackingHeaders rti ++ removeTrackingHeaders hdrs
2121
22+echoMiddleware :: Middleware
23+echoMiddleware app req resp
24+ | Just rti <- parseTrackingHeaders req = app req (resp . addTrackingHeaders rti)
25+ | otherwise = app req resp
26+
2227trackingMiddleware :: (ReqtrackInfo -> IO ()) -> Middleware
2328trackingMiddleware f app req resp
2429 | Just rti <- parseTrackingHeaders req = do f rti