@@ -5,8 +5,8 @@
5module Katip.Scribes.Datadog.TCP
5module Katip.Scribes.Datadog.TCP
6 ( -- * Types
6 ( -- * Types
8− , DataDogScribeSettings(..)
8+ , DatadogScribeSettings(..)
9− , DataDogAuth(..)
9+ , DatadogAuth(..)
10 , directAPIConnectionParams
10 , directAPIConnectionParams
11 , localAgentConnectionParams
11 , localAgentConnectionParams
12 -- * Scribe construction
12 -- * Scribe construction
@@ -44,7 +44,7 @@ newtype APIKey = APIKey
44 } deriving (Show, Eq)
44 } deriving (Show, Eq)
47−data DataDogAuth =
47+data DatadogAuth =
48 NoAuthLocal
48 NoAuthLocal
49 -- ^ Writing to the local agent, no auth required
49 -- ^ Writing to the local agent, no auth required
50 | DirectAuth APIKey
50 | DirectAuth APIKey
@@ -52,13 +52,13 @@ data DataDogAuth =
52 -- required. Using a local agent is recommended.
52 -- required. Using a local agent is recommended.
55−data DataDogScribeSettings = DataDogScribeSettings
55+data DatadogScribeSettings = DatadogScribeSettings
56 { dataDogScribeSettings_connectionParams :: C.ConnectionParams
56 { dataDogScribeSettings_connectionParams :: C.ConnectionParams
57 -- ^ Specify where the logs should go. If writing directly to the
57 -- ^ Specify where the logs should go. If writing directly to the
58 -- main intake API, you can use 'directAPIConnectionParams'. If
58 -- main intake API, you can use 'directAPIConnectionParams'. If
59 -- writing to a local agent, we recommend
59 -- writing to a local agent, we recommend
60 -- 'localAgentConnectionParams'
60 -- 'localAgentConnectionParams'
61− , dataDogScribeSettings_auth :: DataDogAuth
61+ , dataDogScribeSettings_auth :: DatadogAuth
62 , dataDogScribeSettings_poolStripes :: Int
62 , dataDogScribeSettings_poolStripes :: Int
63 -- ^ How many stripes should be used in the connection pool. 1 is a reasonable default
63 -- ^ How many stripes should be used in the connection pool. 1 is a reasonable default
64 , dataDogScribeSettings_connsPerStripe :: Int
64 , dataDogScribeSettings_connsPerStripe :: Int
@@ -86,7 +86,7 @@ directAPIConnectionParams = C.ConnectionParams
89−-- | Configure to talk to a local DataDog agent at 127.0.0.1. TLS is not
89+-- | Configure to talk to a local Datadog agent at 127.0.0.1. TLS is not
90-- utilized. This is the preferred type of connection because
90-- utilized. This is the preferred type of connection because
91-- authentication, buffering, and other more advanced features are
91-- authentication, buffering, and other more advanced features are
92-- handled by the agent configuration.
92-- handled by the agent configuration.
@@ -103,10 +103,10 @@ localAgentConnectionParams port = C.ConnectionParams
103-- connections with a number of connections per stripe equal to
103-- connections with a number of connections per stripe equal to
104-- 'getNumCapabilities'. Retry policy will do an exponential backoff
104-- 'getNumCapabilities'. Retry policy will do an exponential backoff
105-- with a 25ms base delay for up to 5 retries for a total cumulative delay of 775ms
105-- with a 25ms base delay for up to 5 retries for a total cumulative delay of 775ms
106−mkDatadogScribeSettings :: C.ConnectionParams -> DataDogAuth -> IO DataDogScribeSettings
106+mkDatadogScribeSettings :: C.ConnectionParams -> DatadogAuth -> IO DatadogScribeSettings
107mkDatadogScribeSettings connectionParams auth = do
107mkDatadogScribeSettings connectionParams auth = do
108 capabilities <- Conc.getNumCapabilities
108 capabilities <- Conc.getNumCapabilities
109− pure $ DataDogScribeSettings
109+ pure $ DatadogScribeSettings
110 { dataDogScribeSettings_connectionParams = connectionParams
110 { dataDogScribeSettings_connectionParams = connectionParams
111 , dataDogScribeSettings_auth = auth
111 , dataDogScribeSettings_auth = auth
112 , dataDogScribeSettings_poolStripes = 1
112 , dataDogScribeSettings_poolStripes = 1
@@ -118,7 +118,7 @@ mkDatadogScribeSettings connectionParams auth = do
119-------------------------------------------------------------------------------
119-------------------------------------------------------------------------------
120mkDatadogScribe
120mkDatadogScribe
121− :: DataDogScribeSettings
121+ :: DatadogScribeSettings
122 -> PermitFunc
122 -> PermitFunc
123 -- ^ Function on whether to permit items, e.g. @permitItem InfoS@
123 -- ^ Function on whether to permit items, e.g. @permitItem InfoS@
124 -> Verbosity
124 -> Verbosity