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

fix(users/Profpatsch/whatcd-resolver): remove trace debugging

Browse source 
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>
This commit is contained in:
Profpatsch 2024-05-15 11:02:20 +02:00 • committed by clbot
parent c1598cd2d2
commit 44d8bf80f5
1 changed files with 0 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
users/Profpatsch/whatcd-resolver/src/Http.hs
View file

@ -16,16 +16,13 @@ where
import AppT import AppT
import Data.CaseInsensitive (CI (original)) import Data.CaseInsensitive (CI (original))
import Data.Char qualified as Char import Data.Char qualified as Char
import Data.Int (Int64)
import Data.List qualified as List import Data.List qualified as List
import Data.Text qualified as Text import Data.Text qualified as Text
import Data.Text.Lazy qualified as Lazy.Text
import Data.Text.Punycode qualified as Punycode import Data.Text.Punycode qualified as Punycode
import Json.Enc qualified as Enc import Json.Enc qualified as Enc
import MyPrelude import MyPrelude
import Network.HTTP.Client import Network.HTTP.Client
import Network.HTTP.Simple import Network.HTTP.Simple
import OpenTelemetry.Attributes qualified as Otel
import Optional import Optional
import Prelude hiding (span) import Prelude hiding (span)
@ -55,10 +52,6 @@ doRequestJson ::
Enc.Enc -> Enc.Enc ->
m (Response ByteString) m (Response ByteString)
doRequestJson opts val = inSpan' "HTTP Request (JSON)" $ \span -> do 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) addAttribute span "request.xh" (requestToXhCommandLine opts val)
defaultRequest {secure = not (opts & optsUsePlainHttp)} defaultRequest {secure = not (opts & optsUsePlainHttp)}
& setRequestHost (opts & optsHost) & setRequestHost (opts & optsHost)