tls-debug 0.4.6 → 0.4.7

raw patch · 4 files changed

+7/−9 lines, 4 files

Files

src/Common.hs +0/−1
src/SimpleClient.hs +1/−1
src/SimpleServer.hs +5/−6
tls-debug.cabal +1/−1

src/Common.hs view

@@ -15,7 +15,6 @@     ) where  import Data.Char (isDigit)-import Data.Maybe (fromJust) import Numeric (showHex) import Network.Socket

src/SimpleClient.hs view

@@ -123,7 +123,7 @@             supportedVers                 | NoVersionDowngrade `elem` flags = [tlsConnectVer]                 | otherwise = filter (<= tlsConnectVer) allVers-            allVers = [SSL3, TLS10, TLS11, TLS12, TLS13]+            allVers = [TLS13, TLS12, TLS11, TLS10, SSL3]             validateCert = not (NoValidateCert `elem` flags)  getGroups flags = case getGroup >>= readGroups of

src/SimpleServer.hs view

@@ -55,7 +55,7 @@         Nothing   -> return Nothing         Just name -> readDHParams name -    return ServerParams+    return def         { serverWantClientCert = False         , serverCACertificates = []         , serverDHEParams = dhParams@@ -64,7 +64,6 @@                              , sharedValidationCache = validateCache                              , sharedCredentials     = Credentials [cred]                              }-        , serverHooks = def         , serverSupported = def { supportedVersions = supportedVers                                 , supportedCiphers = myCiphers                                 , supportedGroups = getGroups flags@@ -120,7 +119,7 @@             supportedVers                 | NoVersionDowngrade `elem` flags = [tlsConnectVer]                 | otherwise = filter (<= tlsConnectVer) allVers-            allVers = [SSL3, TLS10, TLS11, TLS12, TLS13]+            allVers = [TLS13, TLS12, TLS11, TLS10, SSL3]             validateCert = not (NoValidateCert `elem` flags)             allowRenegotiation = AllowRenegotiation `elem` flags @@ -233,7 +232,7 @@                     then loopSendData getBenchAmount ctx                     else loopRecvData getBenchAmount ctx                 bye ctx-            close cSock+              `E.finally` close cSock           where             dataSend = BC.replicate 4096 'a'             loopSendData bytes ctx@@ -256,7 +255,7 @@             let rtt0accept = Rtt0 `elem` flags             params <- getDefaultParams flags certStore sStorage cred rtt0accept -            void $ forkIO $ do+            void $ forkIO $                 runTLS (Debug `elem` flags)                        (IODebug `elem` flags)                        params cSock $ \ctx -> do@@ -266,7 +265,7 @@                     --sendData ctx $ query                     bye ctx                     return ()-                close cSock+                  `E.finally` close cSock             doTLS sock out          loopRecv out ctx = do

tls-debug.cabal view

@@ -1,5 +1,5 @@ Name:                tls-debug-Version:             0.4.6+Version:             0.4.7 Description:    A set of program to test and debug various aspect of the TLS package.    .