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

remove old code commented

Browse source
This commit is contained in:
Vincent Hanquez 2014-03-21 11:16:07 +00:00
parent cacab68840
commit 53d028d208
1 changed files with 0 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
core/Network/TLS/Core.hs
View file

@ -81,21 +81,8 @@ recvData ctx = liftIO $ do
process (Handshake [ch@(ClientHello {})]) =
withRWLock ctx ((ctxDoHandshakeWith ctx) ctx ch) >> recvData ctx
{-
case roleParams $ ctxParams ctx of
Server sparams -> withRWLock ctx (handshakeServerWith sparams ctx ch) >> recvData ctx
Client {} -> let reason = "unexpected client hello in client context" in
terminate (Error_Misc reason) AlertLevel_Fatal UnexpectedMessage reason
-}
process (Handshake [hr@HelloRequest]) =
withRWLock ctx ((ctxDoHandshakeWith ctx) ctx hr) >> recvData ctx
{-
-- on client context, receiving a hello request == renegotiation
case roleParams $ ctxParams ctx of
Server {} -> let reason = "unexpected hello request in server context" in
terminate (Error_Misc reason) AlertLevel_Fatal UnexpectedMessage reason
Client cparams -> withRWLock ctx (handshakeClient cparams ctx) >> recvData ctx
-}
process (Alert [(AlertLevel_Warning, CloseNotify)]) = tryBye >> setEOF ctx >> return B.empty
process (Alert [(AlertLevel_Fatal, desc)]) = do