Tox: Added missing forkPollForRefresh threads.

1 files changed, 5 insertions, 1 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index 15b00780..5f691ef3 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -88,6 +88,7 @@ import GHC.TypeLits
 import Crypto.Tox
 import Data.Word64Map                        (fitsInInt)
 import qualified Data.Word64Map              (empty)
+import Network.Kademlia.Bootstrap            (forkPollForRefresh)
 import Network.Tox.Crypto.Transport          (NetCrypto)
 import Network.Tox.Crypto.Handlers           (cryptoNetHandler, newSessionsState, defaultUnRecHook, defaultCryptoDataHooks, NetCryptoSessions(..))
 import qualified Network.Tox.DHT.Handlers    as DHT
@@ -358,5 +359,8 @@ forkTox tox = do
     _ <- forkListener "toxCrypto" (toxCrypto tox)
     _ <- forkListener "toxToRoute" (toxToRoute tox)
     _ <- forkListener "toxOnion" (clientNet $ toxOnion tox)
-    forkListener "toxDHT" (clientNet $ toxDHT tox)
+    quit <- forkListener "toxDHT" (clientNet $ toxDHT tox)
+    forkPollForRefresh (DHT.refresher4 $ toxRouting tox)
+    forkPollForRefresh (DHT.refresher6 $ toxRouting tox)
+    return quit