tox: Automatically share dhtkey with roster contacts.

1 files changed, 1 insertions, 11 deletions

diff --git a/ToxManager.hs b/ToxManager.hs
index aa838027..af1911d4 100644
--- a/ToxManager.hs
+++ b/ToxManager.hs
@@ -38,9 +38,6 @@ import Control.Concurrent.Lifted
 import GHC.Conc                  (labelThread)
 #endif
 
-toxAnnounceInterval :: POSIXTime
-toxAnnounceInterval = 15
-
 toxAnnounceSendData :: Tox.Tox -> PublicKey
                                -> Nonce32
                                -> Maybe Tox.NodeInfo
@@ -55,13 +52,6 @@ toxAnnounceSendData tox pubkey token = \case
     Nothing -> return Nothing
 
 
-toxQSearch :: Tox.Tox -> Search Tox.NodeId (IP, PortNumber) Nonce32 Tox.NodeInfo Tox.Rendezvous
-toxQSearch tox = Tox.toxidSearch (Tox.onionTimeout tox) (Tox.toxCryptoKeys tox) (Tox.toxOnion tox)
-
-interweave :: [a] -> [a] -> [a]
-interweave []     ys = ys
-interweave (x:xs) ys = x : interweave ys xs
-
 -- |
 --
 -- These hooks will be invoked in order to connect to *.tox hosts in a user's
@@ -100,7 +90,7 @@ toxman announcer toxbkts tox presence = ToxManager
                                      toxAnnounceInterval)
                      pub
 
-            forkAccountWatcher acnt tox presence
+            forkAccountWatcher acnt tox presence announcer
             return ()
 
     , deactivateAccount      = \k pubname -> do