diff --git a/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs b/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs index f1902bac8..ee1879b41 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))