datadog-tracing 1.3.0 → 1.3.1

raw patch · 2 files changed

+3/−4 lines, 2 files

Files

datadog-tracing.cabal +1/−1
exe/Main.hs +2/−3

datadog-tracing.cabal view

@@ -1,6 +1,6 @@ cabal-version:       2.2 name:                datadog-tracing-version:             1.3.0+version:             1.3.1 synopsis:            Datadog tracing client and mock agent. license:             BSD-3-Clause license-file:        LICENSE

exe/Main.hs view

@@ -9,7 +9,6 @@ -- exposed that allows downloading all the recorded data in a format compatible -- with Jaeger tracing. -import           Control.Monad            (void) import           Control.Monad.IO.Class   (liftIO) import           Data.IORef import qualified Data.Map.Strict          as M@@ -27,8 +26,8 @@   let services = (postTraces3 ref) :<|> (postTraces4 ref) :<|> (getTraces ref)   run 8126 (serve (Proxy @ Services) services) -postTraces3 :: IORef [Trace] -> [Trace] -> Handler ()-postTraces3 r t = void $ postTraces4 r t+postTraces3 :: IORef [Trace] -> [Trace] -> Handler NoContent+postTraces3 r t = (\_ -> NoContent) <$> postTraces4 r t  postTraces4 :: IORef [Trace] -> [Trace] -> Handler TraceResponse postTraces4 ref traces = liftIO $ (atomicModifyIORef' ref update)