constructor for a fire-and-forget agent

Author: symbiont-sam-halliday

datadog-tracing.cabal

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

library/Datadog/Client.hs

@@ -25,11 +25,12 @@ module Datadog.Client (
  , Trace(..)
  , TraceId(..)
  , newServantAgent
+ , newServantAgent'
 ) where
 
 import Control.Monad (unless, void)
 import Control.Monad.Except (ExceptT, MonadError, MonadIO,
- liftEither, liftIO)
+ liftEither, liftIO, runExceptT)
 import Data.Char (isAlpha, isAsciiLower, isDigit)
 import Data.FFunctor (FFunctor, ffmap)
 import Data.Int (Int64)
@@ -70,6 +71,12 @@ instance FFunctor Agent where
 newServantAgent :: (MonadIO m, MonadError ServantError m) => ClientEnv -> Agent m
 newServantAgent env = ffmap (liftClientM env) (Agent traces)
 
+-- | A fire-and-forget Agent implemented by Servant.
+newServantAgent' :: MonadIO m => ClientEnv -> Agent m
+newServantAgent' env =
+ let agent = newServantAgent env
+ in Agent (\t -> void . runExceptT $ putTraces agent t)
+
 type DDText = Refined.NonEmpty && (SizeLessThan 101)
 
 newtype SpanId = SpanId (Refined NonZero Word64) deriving (Eq, Show)