diff --git a/source/Network/Xmpp/Tls.hs b/source/Network/Xmpp/Tls.hs index f684beb..4ebaa71 100644 --- a/source/Network/Xmpp/Tls.hs +++ b/source/Network/Xmpp/Tls.hs @@ -39,13 +39,9 @@ starttlsE = Element "{urn:ietf:params:xml:ns:xmpp-tls}starttls" [] [] exampleParams :: TLSParams exampleParams = defaultParamsClient - { pConnectVersion = TLS10 - , pAllowedVersions = [SSL3, TLS10, TLS11] - , pCiphers = [cipher_AES128_SHA1] - , pCompressions = [nullCompression] - , pUseSecureRenegotiation = False -- No renegotiation - , onCertificatesRecv = \_certificate -> - return CertificateUsageAccept + { pConnectVersion = TLS12 + , pAllowedVersions = [TLS12] + , pCiphers = ciphersuite_strong } -- Pushes ", waits for "", performs the TLS handshake, and