@@ -2,6 +2,7 @@
22{-# LANGUAGE RankNTypes #-}
33module Network.Wai.Handler.WarpTLS
44 ( TLSSettings (..)
5+ , defaultTLS
56 , runTLS
67 , runTLSSocket
78 ) where
@@ -32,8 +33,12 @@ import Crypto.Random.API (getSystemRandomGen)
3233data TLSSettings = TLSSettings
3334 { certFile :: FilePath
3435 , keyFile :: FilePath
36+ , debug :: TLS.Logging
3537 }
3638
39+defaultTLS :: TLSSettings
40+defaultTLS = TLSSettings "cert.pem" "key.pem" TLS.defaultLogging
41+
3742runTLSSocket :: TLSSettings -> Settings -> Socket -> Application -> IO ()
3843runTLSSocket tset set sock app = do
3944 certs <- readCertificates $ certFile tset
@@ -45,6 +50,7 @@ runTLSSocket tset set sock app = do
4550 { TLS.pAllowedVersions = [TLS.SSL3,TLS.TLS10,TLS.TLS11,TLS.TLS12]
4651 , TLS.pCiphers = ciphers
4752 , TLS.pCertificates = zip certs $ (Just pk):repeat Nothing
53+ , TLS.pLogging = debug tset
4854 }
4955 runSettingsConnectionMaker set (getter params) app
5056 where