diff options
| author | Julien Dessaux | 2011-11-03 18:52:20 +0100 |
|---|---|---|
| committer | Julien Dessaux | 2011-11-03 18:52:20 +0100 |
| commit | 7840059d8d31a4142ee5c667bca19501c6d2e279 (patch) | |
| tree | 44444cab31eef5f5853badfb194cabddcc0b9588 /Hsbot/Utils.hs | |
| parent | Fixed a bug in the quote module (diff) | |
| download | hsbot-7840059d8d31a4142ee5c667bca19501c6d2e279.tar.gz hsbot-7840059d8d31a4142ee5c667bca19501c6d2e279.tar.bz2 hsbot-7840059d8d31a4142ee5c667bca19501c6d2e279.zip | |
Taking advantage of the new TLS debugging capabilities
Diffstat (limited to 'Hsbot/Utils.hs')
| -rw-r--r-- | Hsbot/Utils.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Hsbot/Utils.hs b/Hsbot/Utils.hs index d29345c..93bb64d 100644 --- a/Hsbot/Utils.hs +++ b/Hsbot/Utils.hs @@ -64,6 +64,8 @@ initTLSEnv :: TLSConfig -> IO TLSParams initTLSEnv ssl = do let versions = sslVersions ssl ciphers = sslCiphers ssl + logging = sslLogging ssl return $ defaultParams { pAllowedVersions = versions - , pCiphers = ciphers } + , pCiphers = ciphers + , pLogging = logging } |