mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

refactor(users/Profpatsch/whatcd-resolver): remove all debug

Browse source 
Change-Id: I6b3d26df05d2370ea86ecbacfe21508ebfe89fa6
Reviewed-on: https://cl.tvl.fyi/c/depot/+/11643
Autosubmit: Profpatsch <mail@profpatsch.de>
Reviewed-by: Profpatsch <mail@profpatsch.de>
Tested-by: BuildkiteCI
This commit is contained in:
Profpatsch 2024-05-11 20:18:03 +02:00 committed by clbot
parent dcd621820a
commit ba1eb4dc00
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -75,7 +75,6 @@ main =
htmlUi :: AppT IO () htmlUi :: AppT IO ()
htmlUi = do htmlUi = do
let debug = True
uniqueRunId <- uniqueRunId <-
runTransaction $ runTransaction $
querySingleRowWith querySingleRowWith
@ -231,7 +230,6 @@ htmlUi = do
] ]
runInIO $ runInIO $
runHandlers runHandlers
debug
(\respond -> respond.html $ (mainHtml uniqueRunId)) (\respond -> respond.html $ (mainHtml uniqueRunId))
handlers handlers
req req
@ -308,13 +306,12 @@ data HandlerResponses m = HandlerResponses
runHandlers :: runHandlers ::
(MonadOtel m) => (MonadOtel m) =>
Bool ->
(HandlerResponses m -> m ResponseReceived) -> (HandlerResponses m -> m ResponseReceived) ->
(HandlerResponses m -> Map Text (m ResponseReceived)) -> (HandlerResponses m -> Map Text (m ResponseReceived)) ->
Wai.Request -> Wai.Request ->
(Wai.Response -> IO ResponseReceived) -> (Wai.Response -> IO ResponseReceived) ->
m ResponseReceived m ResponseReceived
runHandlers debug defaultHandler handlers req respond = withRunInIO $ \runInIO -> do runHandlers defaultHandler handlers req respond = withRunInIO $ \runInIO -> do
let hh route act = let hh route act =
Otel.inSpan' Otel.inSpan'
[fmt|Route {route}|] [fmt|Route {route}|]