Disable freshenContact thread.

1 files changed, 3 insertions, 1 deletions

diff --git a/Connection/Tox.hs b/Connection/Tox.hs
index 42a64a6d..a131253d 100644
--- a/Connection/Tox.hs
+++ b/Connection/Tox.hs
@@ -175,11 +175,13 @@ setToxPolicy params conmap k@(Key me them) policy = case policy of
             persuing <- launch ("persue:"++show k)
                                 (G.InProgress $ toEnum 0)
                                $ persueContact  getPolicy get_status persue_methods
+            {-
             refreshing <- launch ("refresh:"++show k)
                                 (G.InProgress $ toEnum 0)
                                $ freshenContact getPolicy get_status freshen_methods
+            -}
             atomically $ do
-                writeTVar (sessionTasks st) $ SessionTasks persuing refreshing
+                writeTVar (sessionTasks st) $ SessionTasks persuing _refreshing
                 let routing   = dhtRouting params
                     Key _ nid = k
                 registerNodeCallback routing $ NodeInfoCallback