@@ -49,6 +49,12 @@ data TLSSettings = TLSSettings
4949 -- is a simple text response stating that a secure connection is required.
5050 --
5151 -- Since 1.4.0
52+ , tlsLogging :: TLS.Logging
53+ -- ^ The level of logging to turn on.
54+ --
55+ -- Default: 'TLS.defaultLogging'.
56+ --
57+ -- Since 1.4.0
5258 }
5359
5460data OnInsecure = DenyInsecure L.ByteString
@@ -61,6 +67,7 @@ tlsSettings cert key = TLSSettings
6167 { certFile = cert
6268 , keyFile = key
6369 , onInsecure = DenyInsecure "This server only accepts secure HTTPS connections."
70+ , tlsLogging = TLS.defaultLogging
6471 }
6572
6673runTLSSocket :: TLSSettings -> Settings -> Socket -> Application -> IO ()
@@ -74,6 +81,7 @@ runTLSSocket TLSSettings {..} set sock app = do
7481 { TLS.pAllowedVersions = [TLS.SSL3,TLS.TLS10,TLS.TLS11,TLS.TLS12]
7582 , TLS.pCiphers = ciphers
7683 , TLS.pCertificates = zip certs $ (Just pk):repeat Nothing
84+ , TLS.pLogging = tlsLogging
7785 }
7886 runSettingsConnectionMaker set (getter params) app
7987 where