From 7ae078c1ce0531164fb9c6f9f6eb5f33230adc04 Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent@snarc.org>
Date: Mon, 27 Aug 2012 15:11:17 +0100
Subject: [PATCH] add comments

---
 Network/TLS/Extension.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Network/TLS/Extension.hs b/Network/TLS/Extension.hs
index 53aa97c..a88331e 100644
--- a/Network/TLS/Extension.hs
+++ b/Network/TLS/Extension.hs
@@ -45,6 +45,7 @@ class Extension a where
     extensionDecode :: Bool -> ByteString -> Maybe a
     extensionEncode :: a -> ByteString
 
+-- | Secure Renegotiation
 data SecureRenegotiation = SecureRenegotiation ByteString (Maybe ByteString)
     deriving (Show,Eq)
 
@@ -60,6 +61,7 @@ instance Extension SecureRenegotiation where
                            in return $ SecureRenegotiation cvd (Just svd)
                      else return $ SecureRenegotiation opaque Nothing
 
+-- | Next Protocol Negotiation
 data NextProtocolNegotiation = NextProtocolNegotiation [ByteString]
     deriving (Show,Eq)