Merge pull request #8 from herp-inc/fix-HttpExceptionRequest

HttpExceptionRequestの修正をmain branchに取り込む
herp-inc · Sep 27, 2023 · 64f1185 · 64f1185
2 parents 44d5488 + 07b5362
commit 64f1185
Showing 1 changed file with 1 addition and 5 deletions.
diff --git 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