@@ -1,3 +1,4 @@
1+{-# LANGUAGE OverloadedStrings #-}
12-- | Creates a scribe as a Custom Forwarder for Datadog that sends log
23-- messages over TCP via their TLS endpoint.
34module Katip.Scribes.Datadog.TCP
@@ -77,14 +78,14 @@ data DataDogScribeSettings = DataDogScribeSettings
7778-- authentication.
7879directAPIConnectionParams :: C.ConnectionParams
7980directAPIConnectionParams = C.ConnectionParams
80− { connectionHostname = "intake.logs.datadoghq.com"
81− , connectionPort = 10516
82− , connectionUseSecure = Just $ C.TLSSettingsSimple
83− { settingDisableCertificateValidation = False
84− , settingDisableSession = False
85− , settingUseServerName = False
81+ { C.connectionHostname = "intake.logs.datadoghq.com"
82+ , C.connectionPort = 10516
83+ , C.connectionUseSecure = Just $ C.TLSSettingsSimple
84+ { C.settingDisableCertificateValidation = False
85+ , C.settingDisableSession = False
86+ , C.settingUseServerName = False
8687 }
87− , connectionUseSocks = Nothing
88+ , C.connectionUseSocks = Nothing
8889 }
8990
9091
@@ -94,10 +95,10 @@ directAPIConnectionParams = C.ConnectionParams
9495-- handled by the agent configuration.
9596localAgentConnectionParams :: Net.PortNumber -> C.ConnectionParams
9697localAgentConnectionParams port = C.ConnectionParams
97− { connectionHostname = "127.0.0.1"
98− , connectionPort = port
99− , connectionUseSecure = Nothing
100− , connectionUseSocks = Nothing
98+ { C.connectionHostname = "127.0.0.1"
99+ , C.connectionPort = port
100+ , C.connectionUseSecure = Nothing
101+ , C.connectionUseSocks = Nothing
101102 }
102103
103104