datadog-tracing 1.4.1 → 1.4.2

raw patch · 2 files changed

+5/−5 lines, 2 files

Files

• datadog-tracing.cabal +1/−1
• library/Datadog/Jaeger.hs +4/−4

@@ -1,6 +1,6 @@ cabal-version:       2.2 name:                datadog-tracing-version:             1.4.1+version:             1.4.2 synopsis:            Datadog tracing client and mock agent. license:             BSD-3-Clause license-file:        LICENSE

@@ -49,8 +49,7 @@               (ProcessID spanService)     services spans = nub $ Agent.spanService <$> spans     showt = T.pack . show-    mkTag (k, "true") = Tag k -- magic value skips concatenation-    mkTag (k, v) = Tag $ T.concat [k, ":", v]+    mkTag (k, v) = Tag k v  newtype Jaeger = Jaeger [Data] instance ToJSON Jaeger where@@ -87,7 +86,8 @@   , spanID  :: SpanID   } deriving (Eq, Ord, Generic, ToJSON) -newtype Tag = Tag-  { key :: Text+data Tag = Tag+  { key   :: Text+  , value :: Text   } deriving (Eq, Generic)     deriving anyclass (ToJSON)