From 14c3325c75162eada3d5c62471667989ba0aae14 Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent@snarc.org>
Date: Sat, 22 Mar 2014 05:51:51 +0000
Subject: [PATCH] put the type of the handshake for the parsing of handshake
 message.

---
 core/Network/TLS/Packet.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/Network/TLS/Packet.hs b/core/Network/TLS/Packet.hs
index 7501573..c39bdde 100644
--- a/core/Network/TLS/Packet.hs
+++ b/core/Network/TLS/Packet.hs
@@ -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