@@ -99,7 +99,15 @@ defaultTlsSettings = TLSSettings {
9999-- taken from stunnel example in tls-extra
100100ciphers :: [TLS.Cipher]
101101ciphers =
102− [ TLSExtra.cipher_AES128_SHA1
102+ [
103+ TLSExtra.cipher_DHE_RSA_AES256_SHA256
104+ , TLSExtra.cipher_DHE_RSA_AES128_SHA256
105+ , TLSExtra.cipher_DHE_RSA_AES256_SHA1
106+ , TLSExtra.cipher_DHE_RSA_AES128_SHA1
107+ , TLSExtra.cipher_DHE_DSS_AES128_SHA1
108+ , TLSExtra.cipher_DHE_DSS_AES256_SHA1
109+ , TLSExtra.cipher_DHE_DSS_RC4_SHA1
110+ , TLSExtra.cipher_AES128_SHA1
103111 , TLSExtra.cipher_AES256_SHA1
104112 , TLSExtra.cipher_RC4_128_MD5
105113 , TLSExtra.cipher_RC4_128_SHA1