From bad074465a7afaa3a6b6dd4a606785c35daa66c4 Mon Sep 17 00:00:00 2001 From: Profpatsch Date: Sat, 11 May 2024 22:11:42 +0200 Subject: fix(users/Profpatsch/whatcd-resolver): only prepend log path Otherwise we break routing. Change-Id: I7555a75fcd589a003c81d86e8e8242fcd0da3594 Reviewed-on: https://cl.tvl.fyi/c/depot/+/11647 Tested-by: BuildkiteCI Autosubmit: Profpatsch Reviewed-by: Profpatsch --- 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 a233888c4529..8843a78729c4 100644 --- a/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs +++ b/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs @@ -312,13 +312,13 @@ runHandlers :: (Wai.Response -> IO ResponseReceived) -> m ResponseReceived runHandlers defaultHandler handlers req respond = withRunInIO $ \runInIO -> do - let path = [fmt|/{req & Wai.pathInfo & Text.intercalate "/"}|] + let path = req & Wai.pathInfo & Text.intercalate "/" let handlerResponses = ( HandlerResponses { plain = (\m -> liftIO $ runInIO m >>= respond), html = \act -> Otel.inSpan' - [fmt|Route {path}|] + [fmt|Route /{path}|] ( Otel.defaultSpanArguments { Otel.attributes = HashMap.fromList -- cgit 1.4.1