From bad074465a7afaa3a6b6dd4a606785c35daa66c4 Mon Sep 17 00:00:00 2001
From: Profpatsch <mail@profpatsch.de>
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 <mail@profpatsch.de>
Reviewed-by: Profpatsch <mail@profpatsch.de>
---
 users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'users/Profpatsch/whatcd-resolver')

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