@@ -10,8 +10,8 @@ module Katip.Scribes.Datadog.TCP
1010 , directAPIConnectionParams
1111 , localAgentConnectionParams
1212 -- * Scribe construction
13− , mkDataDogScribeSettings
14− , mkDataDogScribe
13+ , mkDatadogScribeSettings
14+ , mkDatadogScribe
1515 ) where
1616
1717
@@ -103,8 +103,8 @@ localAgentConnectionParams port = C.ConnectionParams
103103-- connections with a number of connections per stripe equal to
104104-- 'getNumCapabilities'. Retry policy will do an exponential backoff
105105-- with a 25ms base delay for up to 5 retries for a total cumulative delay of 775ms
106−mkDataDogScribeSettings :: C.ConnectionParams -> DataDogAuth -> IO DataDogScribeSettings
107−mkDataDogScribeSettings connectionParams auth = do
106+mkDatadogScribeSettings :: C.ConnectionParams -> DataDogAuth -> IO DataDogScribeSettings
107+mkDatadogScribeSettings connectionParams auth = do
108108 capabilities <- Conc.getNumCapabilities
109109 pure $ DataDogScribeSettings
110110 { dataDogScribeSettings_connectionParams = connectionParams
@@ -117,14 +117,14 @@ mkDataDogScribeSettings connectionParams auth = do
117117
118118
119119-------------------------------------------------------------------------------
120−mkDataDogScribe
120+mkDatadogScribe
121121 :: DataDogScribeSettings
122122 -> PermitFunc
123123 -- ^ Function on whether to permit items, e.g. @permitItem InfoS@
124124 -> Verbosity
125125 -- ^ Verbosity level to observe
126126 -> IO Scribe
127−mkDataDogScribe settings permit verb = do
127+mkDatadogScribe settings permit verb = do
128128 connectionContext <- C.initConnectionContext
129129 pool <- Pool.createPool
130130 (C.connectTo connectionContext (dataDogScribeSettings_connectionParams settings))