From 58156967b85d8b6c4920f98e43c12d5f55490619 Mon Sep 17 00:00:00 2001 From: Profpatsch Date: Thu, 9 May 2024 13:06:03 +0200 Subject: fix(users/Profpatsch/whatcd-resolver): prepend / for route logging Change-Id: I46e77540cb47ae42dc44ec950a3ad97cb408974c Reviewed-on: https://cl.tvl.fyi/c/depot/+/11638 Autosubmit: Profpatsch Reviewed-by: Profpatsch Tested-by: BuildkiteCI --- users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs b/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs index f1902bac8c3d..ee1879b412de 100644 --- a/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs +++ b/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs @@ -319,7 +319,7 @@ runHandlers debug defaultHandler handlers req respond = withRunInIO $ \runInIO - else Html.renderHtml let hh route act = Otel.inSpan' - [fmt|Route {route }|] + [fmt|Route {route}|] ( Otel.defaultSpanArguments { Otel.attributes = HashMap.fromList @@ -333,7 +333,7 @@ runHandlers debug defaultHandler handlers req respond = withRunInIO $ \runInIO - ) let h route act = hh route (\span -> act span <&> (\html -> T2 (label @"html" html) (label @"extraHeaders" []))) - let path = (req & Wai.pathInfo & Text.intercalate "/") + let path = [fmt|/{req & Wai.pathInfo & Text.intercalate "/"}|] let handlerResponses = ( T2 (label @"h" (h path)) -- cgit 1.4.1