maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(users/Profpatsch/whatcd-resolver): only prepend log path

Browse source 
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>
This commit is contained in:
Profpatsch 2024-05-11 22:11:42 +02:00 • committed by clbot
parent 8a6f12bdb9
commit bad074465a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -312,13 +312,13 @@ runHandlers ::
(Wai.Response -> IO ResponseReceived) -> (Wai.Response -> IO ResponseReceived) ->
m ResponseReceived m ResponseReceived
runHandlers defaultHandler handlers req respond = withRunInIO $ \runInIO -> do 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 = let handlerResponses =
( HandlerResponses ( HandlerResponses
{ plain = (\m -> liftIO $ runInIO m >>= respond), { plain = (\m -> liftIO $ runInIO m >>= respond),
html = \act -> html = \act ->
Otel.inSpan' Otel.inSpan'
[fmt|Route {path}|] [fmt|Route /{path}|]
( Otel.defaultSpanArguments ( Otel.defaultSpanArguments
{ Otel.attributes = { Otel.attributes =
HashMap.fromList HashMap.fromList