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

put the type of the handshake for the parsing of handshake message.

Browse source
This commit is contained in:
Vincent Hanquez 2014-03-22 05:51:51 +00:00
parent 8088d3e265
commit 14c3325c75
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
core/Network/TLS/Packet.hs
View file

@ -173,7 +173,7 @@ decodeHandshakes b = runGetErr "handshakes" getAll b
else liftM ((:) x) getAll
decodeHandshake :: CurrentParams -> HandshakeType -> ByteString -> Either TLSError Handshake
decodeHandshake cp ty = runGetErr "handshake" $ case ty of
decodeHandshake cp ty = runGetErr ("handshake[" ++ show ty ++ "]") $ case ty of
HandshakeType_HelloRequest -> decodeHelloRequest
HandshakeType_ClientHello -> decodeClientHello
HandshakeType_ServerHello -> decodeServerHello