New "cookie" command for tox command-line interface.

1 files changed, 2 insertions, 0 deletions

diff --git a/src/Crypto/Tox.hs b/src/Crypto/Tox.hs
index d5727254..8a65dfb4 100644
--- a/src/Crypto/Tox.hs
+++ b/src/Crypto/Tox.hs
@@ -81,6 +81,7 @@ import System.Endian
 import qualified Data.ByteString.Internal
 import Control.Concurrent.STM
 import Crypto.Error.Types                     (CryptoFailable (..), throwCryptoError)
+import Network.Socket (SockAddr)
 
 -- | A 16-byte mac and an arbitrary-length encrypted stream.
 newtype Encrypted a = Encrypted ByteString
@@ -367,6 +368,7 @@ data TransportCrypto = TransportCrypto
     , transportSymmetric :: STM SymmetricKey
     , transportNewNonce :: STM Nonce24
     , userKeys :: TVar [(SecretKey,PublicKey)]
+    , pendingCookies :: TVar [(SockAddr, (Int, PublicKey))]
     }
 
 getPublicKey :: S.Get PublicKey