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

typo

Browse source
This commit is contained in:
Vincent Hanquez 2010-09-26 20:54:14 +01:00
parent 49a32f5e82
commit 07bfcd2094
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Network/TLS/Server.hs
View file

@ -174,7 +174,7 @@ handshakeSendServerData handle srand = do
when needkeyxchg $ do
let skg = SKX_RSA Nothing
sendPacket handle (Handshake $ ServerKeyXchg skg)
-- FIXME we don't do this on a Anonyous server
-- FIXME we don't do this on a Anonymous server
when (spWantClientCert sp) $ do
let certTypes = [ CertificateType_RSA_Sign ]
let creq = CertRequest certTypes Nothing [0,0,0]