diff --git a/exe/eventlog-to-lightstep/Main.hs b/exe/eventlog-to-lightstep/Main.hs
--- a/exe/eventlog-to-lightstep/Main.hs
+++ b/exe/eventlog-to-lightstep/Main.hs
@@ -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
diff --git a/opentelemetry-lightstep.cabal b/opentelemetry-lightstep.cabal
--- a/opentelemetry-lightstep.cabal
+++ b/opentelemetry-lightstep.cabal
@@ -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