Use ciphersuite_default instead of ciphersuite_all.
Due to this warning: "This ciphersuite list contains RC4. Use ciphersuite_strong or ciphersuite_default instead."
This commit is contained in:
parent
44770450db
commit
13f56bbee4
1 changed files with 1 additions and 1 deletions
|
@ -50,7 +50,7 @@ connect host port = bracketOnError (connectTo host port) hClose $ \handle -> do
|
|||
|
||||
let params = (TLS.defaultParamsClient host "")
|
||||
{ TLS.clientSupported = def
|
||||
{ TLS.supportedCiphers = TLS.ciphersuite_all}
|
||||
{ TLS.supportedCiphers = TLS.ciphersuite_default}
|
||||
, TLS.clientHooks = def
|
||||
{ TLS.onServerCertificate = \_ _ _ _ -> return []}
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue