From ba1eb4dc00a94670d33ceef5829506efb08e2937 Mon Sep 17 00:00:00 2001 From: Profpatsch Date: Sat, 11 May 2024 20:18:03 +0200 Subject: refactor(users/Profpatsch/whatcd-resolver): remove all debug Change-Id: I6b3d26df05d2370ea86ecbacfe21508ebfe89fa6 Reviewed-on: https://cl.tvl.fyi/c/depot/+/11643 Autosubmit: Profpatsch Reviewed-by: Profpatsch Tested-by: BuildkiteCI --- users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs b/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs index d5dc5161f4e1..d8873ebb5760 100644 --- a/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs +++ b/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs @@ -75,7 +75,6 @@ main = htmlUi :: AppT IO () htmlUi = do - let debug = True uniqueRunId <- runTransaction $ querySingleRowWith @@ -231,7 +230,6 @@ htmlUi = do ] runInIO $ runHandlers - debug (\respond -> respond.html $ (mainHtml uniqueRunId)) handlers req @@ -308,13 +306,12 @@ data HandlerResponses m = HandlerResponses runHandlers :: (MonadOtel m) => - Bool -> (HandlerResponses m -> m ResponseReceived) -> (HandlerResponses m -> Map Text (m ResponseReceived)) -> Wai.Request -> (Wai.Response -> IO ResponseReceived) -> m ResponseReceived -runHandlers debug defaultHandler handlers req respond = withRunInIO $ \runInIO -> do +runHandlers defaultHandler handlers req respond = withRunInIO $ \runInIO -> do let hh route act = Otel.inSpan' [fmt|Route {route}|] -- cgit 1.4.1