freckle-app 1.15.2.0 → 1.15.3.0

raw patch · 4 files changed

+20/−6 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ Freckle.App.OpenTelemetry: addCurrentSpanAttributes :: MonadIO m => HashMap Text Attribute -> m ()

+ Freckle.App.OpenTelemetry: class () => ToAttribute a

+ Freckle.App.OpenTelemetry: toAttribute :: ToAttribute a => a -> Attribute

Files

CHANGELOG.md +6/−2
freckle-app.cabal +1/−1
library/Freckle/App/OpenTelemetry.hs +12/−2
package.yaml +1/−1

CHANGELOG.md view

@@ -1,6 +1,10 @@-## [_Unreleased_](https://github.com/freckle/freckle-app/compare/v1.15.2.0...main)+## [_Unreleased_](https://github.com/freckle/freckle-app/compare/v1.15.3.0...main) -## [v1.15.0.1](https://github.com/freckle/freckle-app/compare/v1.15.2.0...v1.15.1.0)+## [v1.15.3.0](https://github.com/freckle/freckle-app/compare/v1.15.2.0...v1.15.3.0)++- Add `Freckle.App.OpenTelemetry.addCurrentSpanAttributes`++## [v1.15.2.0](https://github.com/freckle/freckle-app/compare/v1.15.1.0...v1.15.2.0)  - Add `FaktoryProducerPool` and `HasFaktoryProducerPool` for pooling connections to Faktory

freckle-app.cabal view

@@ -1,6 +1,6 @@ cabal-version:      1.18 name:               freckle-app-version:            1.15.2.0+version:            1.15.3.0 license:            MIT license-file:       LICENSE maintainer:         Freckle Education

library/Freckle/App/OpenTelemetry.hs view

@@ -43,6 +43,10 @@   , getCurrentTraceIdAsDatadog   , getCurrentSpanContext +    -- * Attributes+  , ToAttribute (..)+  , addCurrentSpanAttributes+     -- * Setup   , withTracerProvider @@ -123,9 +127,15 @@   fmap convertOpenTelemetryTraceIdToDatadogTraceId <$> getCurrentTraceId  getCurrentSpanContext :: MonadIO m => m (Maybe SpanContext)-getCurrentSpanContext = do+getCurrentSpanContext = withCurrentSpan getSpanContext++addCurrentSpanAttributes :: MonadIO m => HashMap Text Attribute -> m ()+addCurrentSpanAttributes attrs = void $ withCurrentSpan (`addAttributes` attrs)++withCurrentSpan :: MonadIO m => (Span -> m b) -> m (Maybe b)+withCurrentSpan f = do   mSpan <- lookupSpan <$> getContext-  traverse getSpanContext mSpan+  traverse f mSpan  withTraceIdContext :: (MonadIO m, MonadMask m) => m a -> m a withTraceIdContext f = do

package.yaml view

@@ -1,5 +1,5 @@ name: freckle-app-version: 1.15.2.0+version: 1.15.3.0 maintainer: Freckle Education category: Utils github: freckle/freckle-app