Taking advantage of the new TLS debugging capabilities

Hsbot/Config.hs

@@ -33,7 +33,8 @@ defaultTLSConfig = TLSConfig
                     , cipher_AES256_SHA1
                     , cipher_AES128_SHA256
                     , cipher_AES256_SHA256 ]
-    , sslVerify   = True }
+    , sslVerify   = True
+    , sslLogging  = defaultLogging }
 
 noSSL :: TLSConfig
 noSSL = defaultTLSConfig { sslOn = False }

Hsbot/Types.hs

@@ -93,5 +93,6 @@ data TLSConfig = TLSConfig
     , sslVersions :: [Network.TLS.Version]
     , sslCiphers  :: [Network.TLS.Cipher]
     , sslVerify   :: Bool
-    } deriving (Show)
+    , sslLogging  :: TLSLogging
+    }
 

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 }