about summary refs log tree commit diff
path: root/users/Profpatsch/whatcd-resolver/src/Http.hs
diff options
context:
space:
mode:
authorProfpatsch <mail@profpatsch.de>2024-05-15T09·02+0200
committerclbot <clbot@tvl.fyi>2024-06-03T14·55+0000
commit44d8bf80f5197b90720721820acc36a071de68ac (patch)
tree56007f5ad9a42b05550fa18eee855ad76a51b8bc /users/Profpatsch/whatcd-resolver/src/Http.hs
parentc1598cd2d2e625167dfda6e5ad5f4229f32fa1ea (diff)
fix(users/Profpatsch/whatcd-resolver): remove trace debugging r/8196
Accidentally left that in.

Change-Id: Id744ea0f2281e0e2a0fe3324efa3f4c13b6ce9fc
Reviewed-on: https://cl.tvl.fyi/c/depot/+/11671
Autosubmit: Profpatsch <mail@profpatsch.de>
Tested-by: BuildkiteCI
Reviewed-by: Profpatsch <mail@profpatsch.de>
Diffstat (limited to 'users/Profpatsch/whatcd-resolver/src/Http.hs')
-rw-r--r--users/Profpatsch/whatcd-resolver/src/Http.hs7
1 files changed, 0 insertions, 7 deletions
diff --git a/users/Profpatsch/whatcd-resolver/src/Http.hs b/users/Profpatsch/whatcd-resolver/src/Http.hs
index 4fdbb306ad18..bc41ad75295c 100644
--- a/users/Profpatsch/whatcd-resolver/src/Http.hs
+++ b/users/Profpatsch/whatcd-resolver/src/Http.hs
@@ -16,16 +16,13 @@ where
 import AppT
 import Data.CaseInsensitive (CI (original))
 import Data.Char qualified as Char
-import Data.Int (Int64)
 import Data.List qualified as List
 import Data.Text qualified as Text
-import Data.Text.Lazy qualified as Lazy.Text
 import Data.Text.Punycode qualified as Punycode
 import Json.Enc qualified as Enc
 import MyPrelude
 import Network.HTTP.Client
 import Network.HTTP.Simple
-import OpenTelemetry.Attributes qualified as Otel
 import Optional
 import Prelude hiding (span)
 
@@ -55,10 +52,6 @@ doRequestJson ::
   Enc.Enc ->
   m (Response ByteString)
 doRequestJson opts val = inSpan' "HTTP Request (JSON)" $ \span -> do
-  let x = requestToXhCommandLine opts val
-  let attrs = [100, 200 .. fromIntegral @Int @Int64 (x & Text.length)]
-  for_ attrs $ \n -> do
-    addAttribute span [fmt|request.xh.{n}|] (Lazy.Text.repeat 'x' & Lazy.Text.take n & toStrict & Otel.TextAttribute)
   addAttribute span "request.xh" (requestToXhCommandLine opts val)
   defaultRequest {secure = not (opts & optsUsePlainHttp)}
     & setRequestHost (opts & optsHost)