tls 0.6.3 → 0.6.4
raw patch · 3 files changed
+10/−10 lines, 3 filesdep ~certificate
Dependency ranges changed: certificate
Files
- Network/TLS/Struct.hs +6/−6
- Tests.hs +2/−2
- tls.cabal +2/−2
Network/TLS/Struct.hs view
@@ -73,8 +73,8 @@ | CertificateType_DSS_Sign -- TLS10 | CertificateType_RSA_Fixed_DH -- TLS10 | CertificateType_DSS_Fixed_DH -- TLS10- | CertificateType_RSA_Ephemeral_dh -- TLS12- | CertificateType_DSS_Ephemeral_dh -- TLS12+ | CertificateType_RSA_Ephemeral_DH -- TLS12+ | CertificateType_DSS_Ephemeral_DH -- TLS12 | CertificateType_fortezza_dms -- TLS12 | CertificateType_Unknown Word8 deriving (Show,Eq)@@ -386,8 +386,8 @@ valOfType CertificateType_DSS_Sign = 2 valOfType CertificateType_RSA_Fixed_DH = 3 valOfType CertificateType_DSS_Fixed_DH = 4- valOfType CertificateType_RSA_Ephemeral_dh = 5- valOfType CertificateType_DSS_Ephemeral_dh = 6+ valOfType CertificateType_RSA_Ephemeral_DH = 5+ valOfType CertificateType_DSS_Ephemeral_DH = 6 valOfType CertificateType_fortezza_dms = 20 valOfType (CertificateType_Unknown i) = i @@ -395,8 +395,8 @@ valToType 2 = Just CertificateType_DSS_Sign valToType 3 = Just CertificateType_RSA_Fixed_DH valToType 4 = Just CertificateType_DSS_Fixed_DH- valToType 5 = Just CertificateType_RSA_Ephemeral_dh- valToType 6 = Just CertificateType_DSS_Ephemeral_dh+ valToType 5 = Just CertificateType_RSA_Ephemeral_DH+ valToType 6 = Just CertificateType_DSS_Ephemeral_DH valToType 20 = Just CertificateType_fortezza_dms valToType i = Just (CertificateType_Unknown i)
Tests.hs view
@@ -3,7 +3,7 @@ import Test.QuickCheck import Test.QuickCheck.Test -import Tests.Certificate+--import Tests.Certificate import Data.Word import Data.Certificate.X509@@ -76,7 +76,7 @@ arbitrary = oneof [ liftM6 ClientHello arbitrary arbitrary arbitrary arbitraryCiphersIDs arbitraryCompressionIDs (return Nothing) , liftM6 ServerHello arbitrary arbitrary arbitrary arbitrary arbitrary (return Nothing)- , liftM Certificates (resize 2 $ listOf $ arbitraryX509 pubkey)+ --, liftM Certificates (resize 2 $ listOf $ arbitraryX509 pubkey) , return HelloRequest , return ServerHelloDone , liftM2 ClientKeyXchg arbitrary arbitrary
tls.cabal view
@@ -1,5 +1,5 @@ Name: tls-Version: 0.6.3+Version: 0.6.4 Description: native TLS protocol implementation, focusing on purity and more type-checking. .@@ -37,7 +37,7 @@ , bytestring , crypto-api >= 0.5 , cryptocipher >= 0.2.5- , certificate >= 0.8.1 && < 0.9+ , certificate >= 0.9 && < 1.0 Exposed-modules: Network.TLS Network.TLS.Cipher Network.TLS.Compression