hs-opentelemetry-api 0.0.3.1 → 0.0.3.2

raw patch · 3 files changed

+10/−2 lines, 3 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

Files

• hs-opentelemetry-api.cabal +1/−1
• src/OpenTelemetry/Context.hs +8/−0
• src/OpenTelemetry/Trace/Core.hs +1/−1

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           hs-opentelemetry-api-version:        0.0.3.1+version:        0.0.3.2 synopsis:       OpenTelemetry API for use by libraries for direct instrumentation or wrapper packages. description:    Please see the README on GitHub at <https://github.com/iand675/hs-opentelemetry/tree/main/api#readme> category:       OpenTelemetry, Telemetry, Monitoring, Observability, Metrics

@@ -33,8 +33,10 @@   , union   , insertSpan   , lookupSpan+  , removeSpan   , insertBaggage   , lookupBaggage+  , removeBaggage   ) where import Control.Monad.IO.Class import Data.Maybe@@ -88,6 +90,9 @@ insertSpan :: Span -> Context -> Context insertSpan = insert spanKey +removeSpan :: Context -> Context +removeSpan = delete spanKey+ baggageKey :: Key Baggage baggageKey = unsafePerformIO $ newKey "baggage" {-# NOINLINE baggageKey #-}@@ -99,3 +104,6 @@ insertBaggage b c = case lookup baggageKey c of   Nothing -> insert baggageKey b c   Just b' -> insert baggageKey (b <> b') c++removeBaggage :: Context -> Context+removeBaggage = delete baggageKey

@@ -351,7 +351,7 @@         recordException s [] Nothing inner       endSpan s Nothing       adjustContext $ \ctx ->-        maybe ctx (`insertSpan` ctx) parent+        maybe (removeSpan ctx) (`insertSpan` ctx) parent     )     (\(_, s) -> f s)