hs-opentelemetry-api 0.0.3.7 → 0.0.3.8

raw patch · 2 files changed

+4/−4 lines, 2 files

Files

• hs-opentelemetry-api.cabal +1/−1
• src/OpenTelemetry/Context/ThreadLocal.hs +3/−3

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:               hs-opentelemetry-api-version:            0.0.3.7+version:            0.0.3.8 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

@@ -155,7 +155,7 @@ -} adjustContext :: MonadIO m => (Context -> Context) -> m () adjustContext f = update threadContextMap $ \mctx ->-  (f $ fromMaybe empty mctx, ())+  (pure $ f $ fromMaybe empty mctx, ())   {- | Alter the context@@ -166,5 +166,5 @@  @since 0.0.1.0 -} adjustContextOnThread :: MonadIO m => ThreadId -> (Context -> Context) -> m ()-adjustContextOnThread tid = updateOnThread threadContextMap tid $ \mctx ->-  (f $ fromMaybe empty mctx, ())+adjustContextOnThread tid f = updateOnThread threadContextMap tid $ \mctx ->+  (pure $ f $ fromMaybe empty mctx, ())