summaryrefslogtreecommitdiff
path: root/src/Crypto/Tox.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Crypto/Tox.hs')
-rw-r--r--src/Crypto/Tox.hs2
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
81import qualified Data.ByteString.Internal 81import qualified Data.ByteString.Internal
82import Control.Concurrent.STM 82import Control.Concurrent.STM
83import Crypto.Error.Types (CryptoFailable (..), throwCryptoError) 83import Crypto.Error.Types (CryptoFailable (..), throwCryptoError)
84import Network.Socket (SockAddr)
84 85
85-- | A 16-byte mac and an arbitrary-length encrypted stream. 86-- | A 16-byte mac and an arbitrary-length encrypted stream.
86newtype Encrypted a = Encrypted ByteString 87newtype Encrypted a = Encrypted ByteString
@@ -367,6 +368,7 @@ data TransportCrypto = TransportCrypto
367 , transportSymmetric :: STM SymmetricKey 368 , transportSymmetric :: STM SymmetricKey
368 , transportNewNonce :: STM Nonce24 369 , transportNewNonce :: STM Nonce24
369 , userKeys :: TVar [(SecretKey,PublicKey)] 370 , userKeys :: TVar [(SecretKey,PublicKey)]
371 , pendingCookies :: TVar [(SockAddr, (Int, PublicKey))]
370 } 372 }
371 373
372getPublicKey :: S.Get PublicKey 374getPublicKey :: S.Get PublicKey