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

add comments

Browse source
This commit is contained in:
Vincent Hanquez 2012-08-27 15:11:17 +01:00
parent 7036d4becd
commit 7ae078c1ce
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Network/TLS/Extension.hs
View file

@ -45,6 +45,7 @@ class Extension a where
extensionDecode :: Bool -> ByteString -> Maybe a extensionDecode :: Bool -> ByteString -> Maybe a
extensionEncode :: a -> ByteString extensionEncode :: a -> ByteString
-- | Secure Renegotiation
data SecureRenegotiation = SecureRenegotiation ByteString (Maybe ByteString) data SecureRenegotiation = SecureRenegotiation ByteString (Maybe ByteString)
deriving (Show,Eq) deriving (Show,Eq)
@ -60,6 +61,7 @@ instance Extension SecureRenegotiation where
in return $ SecureRenegotiation cvd (Just svd) in return $ SecureRenegotiation cvd (Just svd)
else return $ SecureRenegotiation opaque Nothing else return $ SecureRenegotiation opaque Nothing
-- | Next Protocol Negotiation
data NextProtocolNegotiation = NextProtocolNegotiation [ByteString] data NextProtocolNegotiation = NextProtocolNegotiation [ByteString]
deriving (Show,Eq) deriving (Show,Eq)