From c997045372125e81e4a4f5b4f7d38ab2553884c1 Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Tue, 1 Mar 2011 20:01:40 +0000 Subject: [PATCH] remove old code --- Network/TLS/Server.hs | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/Network/TLS/Server.hs b/Network/TLS/Server.hs index 25a02d3..8de4666 100644 --- a/Network/TLS/Server.hs +++ b/Network/TLS/Server.hs @@ -132,27 +132,11 @@ handshakeSendServerData handle = do case map snd $ pCertificates sp of (Just privkey : _) -> usingState_ $ setPrivateKey privkey _ -> return () -- return a sensible error - --let srvcert = Certificates [ cert ] - -- in TLS12, we need to check as well the certificates we are sending if they have in the extension -- the necessary bits set. let needkeyxchg = cipherExchangeNeedMoreData $ cipherKeyExchange cipher - {- - let privkey = PrivRSA $ RSA.PrivateKey - { RSA.private_sz = fromIntegral $ KeyRSA.lenmodulus privkeycert - , RSA.private_n = KeyRSA.modulus privkeycert - , RSA.private_d = KeyRSA.private_exponant privkeycert - , RSA.private_p = KeyRSA.p1 privkeycert - , RSA.private_q = KeyRSA.p2 privkeycert - , RSA.private_dP = KeyRSA.exp1 privkeycert - , RSA.private_dQ = KeyRSA.exp2 privkeycert - , RSA.private_qinv = KeyRSA.coef privkeycert - } - setPrivateKey privkey - -} - sendPacket handle (Handshake srvhello) sendPacket handle (Handshake srvCerts) when needkeyxchg $ do