put the type of the handshake for the parsing of handshake message.
This commit is contained in:
parent
8088d3e265
commit
14c3325c75
1 changed files with 1 additions and 1 deletions
|
@ -173,7 +173,7 @@ decodeHandshakes b = runGetErr "handshakes" getAll b
|
||||||
else liftM ((:) x) getAll
|
else liftM ((:) x) getAll
|
||||||
|
|
||||||
decodeHandshake :: CurrentParams -> HandshakeType -> ByteString -> Either TLSError Handshake
|
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_HelloRequest -> decodeHelloRequest
|
||||||
HandshakeType_ClientHello -> decodeClientHello
|
HandshakeType_ClientHello -> decodeClientHello
|
||||||
HandshakeType_ServerHello -> decodeServerHello
|
HandshakeType_ServerHello -> decodeServerHello
|
||||||
|
|
Loading…
Reference in a new issue