core-telemetry 0.2.3.5 → 0.2.3.7

raw patch · 3 files changed

+8/−4 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• core-telemetry.cabal +1/−1
• lib/Core/Telemetry/Honeycomb.hs +3/−1
• lib/Core/Telemetry/Observability.hs +4/−2

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           core-telemetry-version:        0.2.3.5+version:        0.2.3.7 synopsis:       Advanced telemetry description:    This is part of a library to help build command-line programs, both tools and                 longer-running daemons.

@@ -182,7 +182,9 @@             Just value -> insertKeyValue "trace.span_id" (JsonString (unSpan value)) meta1          meta3 = case parent of-            Nothing -> meta2+            Nothing -> case trace of+                Nothing -> meta2+                Just _ -> insertKeyValue "meta.span_type" (JsonString "root") meta2             Just value -> insertKeyValue "trace.parent_id" (JsonString (unSpan value)) meta2          meta4 = case trace of

@@ -437,12 +437,14 @@             internal ("Leave " <> label)          -- extract the Datum as it stands after running the action, finalize-        -- with its duration, and send it+        -- with its duration, and send it. Note that we don't use the original+        -- start time as it may have been overwritten.         finish <- getCurrentTimeNanoseconds         datum2 <- readMVar v2+        let start2 = spanTimeFrom datum2         let datum2' =                 datum2-                    { durationFrom = Just (unTime finish - unTime start)+                    { durationFrom = Just (unTime finish - unTime start2)                     }          let tel = telemetryChannelFrom context