diff options
| author | joe <joe@jerkface.net> | 2018-06-18 06:14:11 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2018-06-18 06:14:11 -0400 |
| commit | 19364a287f7083fc60beed2d6eae3dd71d27e737 (patch) | |
| tree | bb784eeb3c8acb25fd8b656142d92aac2dd096ca /src/Network/Tox.hs | |
| parent | 2dbb1e710d6d58fc00126d84763ec3597d92437d (diff) | |
tox: Automatically share dhtkey with roster contacts.
Diffstat (limited to 'src/Network/Tox.hs')
| -rw-r--r-- | src/Network/Tox.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs index 5a4c02ea..52dba0f5 100644 --- a/src/Network/Tox.hs +++ b/src/Network/Tox.hs | |||
| @@ -351,6 +351,7 @@ netCryptoWithBackoff millisecs tox myseckey theirpubkey = do | |||
| 351 | hPutStrLn stderr "Unable to establish session..." | 351 | hPutStrLn stderr "Unable to establish session..." |
| 352 | return [] | 352 | return [] |
| 353 | 353 | ||
| 354 | -- | Create a DHTPublicKey packet to send to a remote contact. | ||
| 354 | getContactInfo :: Tox -> IO DHT.DHTPublicKey | 355 | getContactInfo :: Tox -> IO DHT.DHTPublicKey |
| 355 | getContactInfo Tox{toxCryptoKeys,toxRouting} = join $ atomically $ do | 356 | getContactInfo Tox{toxCryptoKeys,toxRouting} = join $ atomically $ do |
| 356 | r4 <- readTVar $ DHT.routing4 toxRouting | 357 | r4 <- readTVar $ DHT.routing4 toxRouting |