From ea06a793b7ad48b07526f471705a96115f56f542 Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Mon, 31 Dec 2012 13:37:19 +0000 Subject: [PATCH] add SHA1 and remove unneeded import --- core/Network/TLS/Handshake/Signature.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/core/Network/TLS/Handshake/Signature.hs b/core/Network/TLS/Handshake/Signature.hs index f0caedf..8cd4938 100644 --- a/core/Network/TLS/Handshake/Signature.hs +++ b/core/Network/TLS/Handshake/Signature.hs @@ -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