lightstep-haskell 0.10.1 → 0.10.2

raw patch · 2 files changed

+14/−14 lines, 2 files

Files

• lightstep-haskell.cabal +1/−1
• src/LightStep/LowLevel.hs +13/−13

@@ -1,7 +1,7 @@ cabal-version: 2.4  name:           lightstep-haskell-version:        0.10.1+version:        0.10.2 synopsis:       LightStep OpenTracing client library description:    LightStep OpenTracing client library. Uses GRPC transport via proto-lens. category:       Tools

@@ -68,24 +68,24 @@  mkClient :: LightStepConfig -> IO LightStepClient mkClient cfg@LightStepConfig {..} = do+  reporter_id <- randomIO+  let rep =+        defMessage+          & reporterId .~ reporter_id+          & tags+            .~ ( [ defMessage & key .~ "lightstep.component_name" & stringValue .~ lsServiceName,+                   defMessage & key .~ "lightstep.tracer_platform" & stringValue .~ "haskell",+                   defMessage & key .~ "lightstep.tracer_version" & stringValue .~ (T.pack $ showVersion version)+                 ]+                   <> [ defMessage & key .~ k & stringValue .~ v+                        | (k, v) <- lsGlobalTags+                      ]+               )   grpcVar <- newEmptyMVar   let client = LightStepClient grpcVar lsToken rep cfg   grpc <- makeGrpcClient client   putMVar grpcVar grpc   pure client-  where-    rep =-      defMessage-        & reporterId .~ 2-        & tags-          .~ ( [ defMessage & key .~ "lightstep.component_name" & stringValue .~ lsServiceName,-                 defMessage & key .~ "lightstep.tracer_platform" & stringValue .~ "haskell",-                 defMessage & key .~ "lightstep.tracer_version" & stringValue .~ (T.pack $ showVersion version)-               ]-                 <> [ defMessage & key .~ k & stringValue .~ v-                      | (k, v) <- lsGlobalTags-                    ]-             )  makeGrpcClient :: LightStepClient -> IO GrpcClient makeGrpcClient client = do