tls 1.2.0 → 1.2.1

raw patch · 2 files changed

+4/−4 lines, 2 files

Files

• Network/TLS/Credentials.hs +3/−3
• tls.cabal +1/−1

@@ -59,13 +59,13 @@ credentialCanDecrypt :: Credential -> Maybe () credentialCanDecrypt (chain, priv) =     case extensionGet (certExtensions cert) of-        Nothing    -> Nothing+        Nothing    -> Just ()         Just (ExtKeyUsage flags)             | KeyUsage_keyEncipherment `elem` flags ->                 case (pub, priv) of                     (PubKeyRSA _, PrivKeyRSA _) -> Just ()                     _                           -> Nothing-            | otherwise                             -> Nothing+            | otherwise                         -> Nothing     where cert   = signedObject $ getSigned signed           pub    = certPubKey cert           signed = getCertificateChainLeaf chain@@ -73,7 +73,7 @@ credentialCanSign :: Credential -> Maybe SignatureAlgorithm credentialCanSign (chain, priv) =     case extensionGet (certExtensions cert) of-        Nothing    -> Nothing+        Nothing    -> getSignatureAlg pub priv         Just (ExtKeyUsage flags)             | KeyUsage_digitalSignature `elem` flags -> getSignatureAlg pub priv             | otherwise                              -> Nothing

@@ -1,5 +1,5 @@ Name:                tls-Version:             1.2.0+Version:             1.2.1 Description:    Native Haskell TLS and SSL protocol implementation for server and client.    .