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

don't use DSA.signature for now as it's going some new revision

Browse source
This commit is contained in:
Vincent Hanquez 2013-05-16 09:44:01 +01:00
parent 5173b61783
commit c2924f82d9
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
extra/Network/TLS/Extra/Certificate.hs
View file

@ -157,8 +157,8 @@ verifyF (SignatureALG HashSHA256 PubKeyALG_RSA) (PubKeyRSA rsak) = RSA.verify HD
verifyF _ _ = \_ _ -> False
dsaSHA1Verify pk _ b = DSA.verify SHA1.hash pk asig b
where asig = (0,0) {- FIXME : need to work out how to get R/S from the bytestring a -}
dsaSHA1Verify pk _ b = False -- DSA.verify SHA1.hash pk asig b
--where asig = DSA.Signature 0 0 {- FIXME : need to work out how to get R/S from the bytestring a -}
-- | Verify that the given certificate chain is application to the given fully qualified host name.
certificateVerifyDomain :: String -> [X509] -> CertificateUsage

2
extra/tls-extra.cabal
View file

@ -29,7 +29,7 @@ Library
, cipher-rc4
, cipher-aes >= 0.1 && < 0.2
, certificate >= 1.3.5 && < 1.4.0
, crypto-pubkey
, crypto-pubkey >= 0.1.4
, crypto-random-api
, pem >= 0.1.0 && < 0.2.0
, text >= 0.5 && < 1.0