hs-opentelemetry-vendor-honeycomb 0.0.1.1 → 0.0.1.2
raw patch · 3 files changed
+17/−23 lines, 3 filesdep −hspec-coredep −hspec-expectationsnew-uploaderPVP ok
version bump matches the API change (PVP)
Dependencies removed: hspec-core, hspec-expectations
API changes (from Hackage documentation)
Files
- ChangeLog.md +4/−1
- hs-opentelemetry-vendor-honeycomb.cabal +3/−12
- src/OpenTelemetry/Vendor/Honeycomb.hs +10/−10
ChangeLog.md view
@@ -1,6 +1,9 @@ # Changelog for hs-opentelemetry-vendor-honeycomb +## 0.0.1.2++- Support newer dependencies+ ## 0.0.1.0 Initial release-## Unreleased changes
hs-opentelemetry-vendor-honeycomb.cabal view
@@ -1,11 +1,11 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.35.2.+-- This file has been generated from package.yaml by hpack version 0.36.0. -- -- see: https://github.com/sol/hpack name: hs-opentelemetry-vendor-honeycomb-version: 0.0.1.1+version: 0.0.1.2 synopsis: Optional OpenTelemetry integration for Honeycomb description: Please see the README on GitHub at <https://github.com/iand675/hs-opentelemetry#readme> category: OpenTelemetry@@ -13,7 +13,7 @@ bug-reports: https://github.com/iand675/hs-opentelemetry/issues author: Ian Duncan, Jade Lovelace maintainer: ian@iankduncan.com-copyright: 2023 Ian Duncan, Mercury Technologies+copyright: 2024 Ian Duncan, Mercury Technologies license: BSD3 license-file: LICENSE build-type: Simple@@ -60,17 +60,8 @@ hspec-discover:hspec-discover build-depends: base >=4.7 && <5- , bytestring- , honeycomb >=0.1.0.1 , hs-opentelemetry-api , hs-opentelemetry-vendor-honeycomb , hspec- , hspec-core- , hspec-expectations- , mtl- , text , time- , transformers- , unordered-containers- , uri-bytestring default-language: Haskell2010
src/OpenTelemetry/Vendor/Honeycomb.hs view
@@ -142,7 +142,7 @@ N.B. The EnvironmentName will be Nothing if the API key is for a Honeycomb Classic instance. -}-getHoneycombData :: MonadIO m => Config.Config -> m (HoneycombTeam, Maybe EnvironmentName)+getHoneycombData :: (MonadIO m) => Config.Config -> m (HoneycombTeam, Maybe EnvironmentName) getHoneycombData cfg = do auth <- runReaderT Auth.getAuth cfg let envSlug = Auth.slug . Auth.environment $ auth@@ -252,11 +252,11 @@ ensure that this context is the parent of all child contexts in which you might want to get the target (for instance to generate Honeycomb links). -}-getOrInitializeHoneycombTargetInContext ::- MonadIO m =>- -- | Timeout for the operation before assuming Honeycomb is inaccessible- NominalDiffTime ->- m (Maybe HoneycombTarget)+getOrInitializeHoneycombTargetInContext+ :: (MonadIO m)+ => NominalDiffTime+ -- ^ Timeout for the operation before assuming Honeycomb is inaccessible+ -> m (Maybe HoneycombTarget) getOrInitializeHoneycombTargetInContext theTimeout = do mmTarget <- getHoneycombTargetInContext' case mmTarget of@@ -286,13 +286,13 @@ This is the right function for most use cases. -}-getHoneycombTargetInContext :: MonadIO m => m (Maybe HoneycombTarget)+getHoneycombTargetInContext :: (MonadIO m) => m (Maybe HoneycombTarget) getHoneycombTargetInContext = do join <$> getHoneycombTargetInContext' -- | Gets the thread-local context. The outer Maybe represents whether one has been set yet.-getHoneycombTargetInContext' :: MonadIO m => m (Maybe (Maybe HoneycombTarget))+getHoneycombTargetInContext' :: (MonadIO m) => m (Maybe (Maybe HoneycombTarget)) getHoneycombTargetInContext' = do Context.lookup honeycombTargetKey <$> TLContext.getContext @@ -302,7 +302,7 @@ Needs to have the thread-local target initialized; see 'getOrInitializeHoneycombTargetInContext'. -}-getHoneycombLink :: MonadIO m => m (Maybe ByteString)+getHoneycombLink :: (MonadIO m) => m (Maybe ByteString) getHoneycombLink = do mTarget <- getHoneycombTargetInContext case mTarget of@@ -311,7 +311,7 @@ -- | Gets a trace link for the current trace with an explicitly provided target.-getHoneycombLink' :: MonadIO m => HoneycombTarget -> m (Maybe ByteString)+getHoneycombLink' :: (MonadIO m) => HoneycombTarget -> m (Maybe ByteString) getHoneycombLink' target = do theSpan <- lookupSpan <$> TLContext.getContext inTraceId <- traceIdForSpan theSpan