From 07b5362b4604ad1b2584abeca8eb8aceaa6e90a2 Mon Sep 17 00:00:00 2001 From: Kazuki Okamoto Date: Wed, 20 Sep 2023 16:52:08 +0900 Subject: [PATCH] remove debug prints --- exporters/otlp/src/OpenTelemetry/Exporter/OTLP.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/exporters/otlp/src/OpenTelemetry/Exporter/OTLP.hs b/exporters/otlp/src/OpenTelemetry/Exporter/OTLP.hs index 3850cbde..ebba7b01 100644 --- a/exporters/otlp/src/OpenTelemetry/Exporter/OTLP.hs +++ b/exporters/otlp/src/OpenTelemetry/Exporter/OTLP.hs @@ -274,8 +274,6 @@ otlpExporter conf = do threadDelay (retryDelay `shiftL` backoffCount) sendReq req (backoffCount + 1) - either print (\_ -> pure ()) eResp - case eResp of Left err@(HttpExceptionRequest _ e) -> if isRetryableException e @@ -296,9 +294,7 @@ otlpExporter conf = do sendReq req (backoffCount + 1) else if statusCode (responseStatus resp) >= 300 - then do - print resp - pure $ Failure Nothing + then pure $ Failure Nothing else pure Success