yogsototh/hs-tls
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix bug where version would be inferior to the one specified

Browse source
This commit is contained in:
Vincent Hanquez 2014-03-22 16:07:33 +00:00
parent a9225cabf5
commit 50ee02138d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
debug/src/SimpleClient.hs
View file

@ -81,7 +81,7 @@ getDefaultParams flags host store sStorage session =
| otherwise = TLS12
supportedVers
| NoVersionDowngrade `elem` flags = [tlsConnectVer]
| otherwise = filter (< tlsConnectVer) allVers
| otherwise = filter (<= tlsConnectVer) allVers
allVers = [SSL3, TLS10, TLS11, TLS12]
validateCert = not (NoValidateCert `elem` flags)