Change Cookie -> Cookie Encrypted

1 files changed, 5 insertions, 5 deletions

diff --git a/src/Network/Tox/Crypto/Transport.hs b/src/Network/Tox/Crypto/Transport.hs
index 0588da4b..e23d1865 100644
--- a/src/Network/Tox/Crypto/Transport.hs
+++ b/src/Network/Tox/Crypto/Transport.hs
@@ -99,7 +99,7 @@ data Handshake (f :: * -> *) = Handshake
       -- response packet with a cookie in it.  It may also be obtained in the
       -- handshake packet by a peer receiving a handshake packet (Other
       -- Cookie).
-      handshakeCookie :: Cookie
+      handshakeCookie :: Cookie f
       -- The nonce is a nonce used to encrypt the encrypted part of the handshake
       -- packet.
     , handshakeNonce :: Nonce24
@@ -113,10 +113,10 @@ instance Serialize (Handshake Encrypted) where
     put (Handshake cookie n24 dta) = put cookie >> put n24 >> put dta
 
 data HandshakeData = HandshakeData
-    { baseNonce :: Nonce24
-    , sessionKey :: PublicKey
-    , cookieHash :: Digest SHA512
-    , otherCookie :: Cookie
+    { baseNonce   :: Nonce24          -- ^ [24 bytes base nonce]
+    , sessionKey  :: PublicKey        -- ^ [session public key of the peer (32 bytes)]
+    , cookieHash  :: Digest SHA512    -- ^ [sha512 hash of the entire Cookie sitting outside the encrypted part]
+    , otherCookie :: Cookie Encrypted -- ^ [Other Cookie (used by the other to respond to the handshake packet)]
     }
 
 instance Sized HandshakeData where