about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs4
1 files 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))