opentelemetry-lightstep 0.4.0 → 0.4.1

raw patch · 2 files changed

+5/−3 lines, 2 files

Files

• exe/eventlog-to-lightstep/Main.hs +4/−2
• opentelemetry-lightstep.cabal +1/−1

@@ -25,7 +25,7 @@       let service_name = T.pack $ takeBaseName path       exporter <- createLightstepSpanExporter lsConfig {lsServiceName = service_name}       origin_timestamp <- fromIntegral . toNanoSecs <$> getTime Realtime-      withFile path ReadMode (work StopOnEOF origin_timestamp exporter)+      work origin_timestamp exporter $ EventLogFilename path       shutdown exporter       putStrLn "\nAll done.\n"     ("run" : program : "--" : args') -> do@@ -37,7 +37,9 @@       env <- (("GHCRTS", "-l -ol" <> pipe) :) <$> getEnvironment -- TODO(divanov): please append to existing GHCRTS instead of overwriting       p <- startProcess (proc program args' & setEnv env)       origin_timestamp <- fromIntegral . toNanoSecs <$> getTime Realtime-      restreamer <- async $ withFile pipe ReadMode (work SleepAndRetryOnEOF origin_timestamp exporter)+      restreamer <- async $+        withFile pipe ReadMode (\handle ->+          work origin_timestamp exporter $ EventLogHandle handle SleepAndRetryOnEOF)       waitExitCode p       wait restreamer       shutdown exporter

@@ -2,7 +2,7 @@ name:                opentelemetry-lightstep description:         The OpenTelemetry Haskell Client (Lightstep exporter) https://opentelemetry.io category:            OpenTelemetry-version: 0.4.0+version: 0.4.1 license-file:        LICENSE license:             Apache-2.0 author:              Dmitry Ivanov