@@ -1,4 +1,5 @@
11{-# LANGUAGE OverloadedStrings #-}
2+{-# LANGUAGE RankNTypes #-}
23-- | Creates a scribe as a Custom Forwarder for Datadog that sends log
34-- messages over TCP via their TLS endpoint.
45module Katip.Scribes.Datadog.TCP
@@ -118,12 +119,12 @@ mkDataDogScribeSettings connectionParams auth = do
118119-------------------------------------------------------------------------------
119120mkDataDogScribe
120121 :: DataDogScribeSettings
121− -> Severity
122− -- ^ Severity level to observe
122+ -> PermitFunc
123+ -- ^ Function on whether to permit items, e.g. @permitItem InfoS@
123124 -> Verbosity
124125 -- ^ Verbosity level to observe
125126 -> IO Scribe
126−mkDataDogScribe settings sev verb = do
127+mkDataDogScribe settings permit verb = do
127128 connectionContext <- C.initConnectionContext
128129 pool <- Pool.createPool
129130 (C.connectTo connectionContext (dataDogScribeSettings_connectionParams settings))
@@ -134,7 +135,7 @@ mkDataDogScribe settings sev verb = do
134135 pure $ Scribe
135136 { liPush = pushPool (dataDogScribeSettings_retry settings) pool keyBuilder verb
136137 , scribeFinalizer = Pool.destroyAllResources pool
137− , scribePermitItem = permitItem sev
138+ , scribePermitItem = permit
138139 }
139140 where
140141 !keyBuilder = case dataDogScribeSettings_auth settings of