mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(users/Profpatsch/whatcd-resolver): prepend / for route logging

Browse source 
Change-Id: I46e77540cb47ae42dc44ec950a3ad97cb408974c
Reviewed-on: https://cl.tvl.fyi/c/depot/+/11638
Autosubmit: Profpatsch <mail@profpatsch.de>
Reviewed-by: Profpatsch <mail@profpatsch.de>
Tested-by: BuildkiteCI
This commit is contained in:
Profpatsch 2024-05-09 13:06:03 +02:00 committed by clbot
parent 5d57ca2dc7
commit 58156967b8
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs
View file

@ -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))