diff options
Diffstat (limited to 'src/Crypto/Tox.hs')
-rw-r--r-- | src/Crypto/Tox.hs | 2 |
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 | |||
81 | import qualified Data.ByteString.Internal | 81 | import qualified Data.ByteString.Internal |
82 | import Control.Concurrent.STM | 82 | import Control.Concurrent.STM |
83 | import Crypto.Error.Types (CryptoFailable (..), throwCryptoError) | 83 | import Crypto.Error.Types (CryptoFailable (..), throwCryptoError) |
84 | import 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. |
86 | newtype Encrypted a = Encrypted ByteString | 87 | newtype 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 | ||
372 | getPublicKey :: S.Get PublicKey | 374 | getPublicKey :: S.Get PublicKey |