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

add SHA1 and remove unneeded import

Browse source
This commit is contained in:
Vincent Hanquez 2012-12-31 13:37:19 +00:00
parent f80f2e5dec
commit ea06a793b7
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
core/Network/TLS/Handshake/Signature.hs
View file

@ -16,11 +16,10 @@ import Network.TLS.Struct
import Control.Monad.State
import qualified Data.ByteString as B
getHashAndASN1 :: MonadIO m => (HashAlgorithm, SignatureAlgorithm) -> m HashDescr
getHashAndASN1 hashSig = do
case hashSig of
(HashSHA1, SignatureRSA) -> return hashDescrSHA1
(HashSHA224, SignatureRSA) -> return hashDescrSHA224
(HashSHA256, SignatureRSA) -> return hashDescrSHA256
(HashSHA384, SignatureRSA) -> return hashDescrSHA384