diff options
| -rw-r--r-- | Connection/Tox.hs | 4 |
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 | |||
| 175 | persuing <- launch ("persue:"++show k) | 175 | persuing <- launch ("persue:"++show k) |
| 176 | (G.InProgress $ toEnum 0) | 176 | (G.InProgress $ toEnum 0) |
| 177 | $ persueContact getPolicy get_status persue_methods | 177 | $ persueContact getPolicy get_status persue_methods |
| 178 | {- | ||
| 178 | refreshing <- launch ("refresh:"++show k) | 179 | refreshing <- launch ("refresh:"++show k) |
| 179 | (G.InProgress $ toEnum 0) | 180 | (G.InProgress $ toEnum 0) |
| 180 | $ freshenContact getPolicy get_status freshen_methods | 181 | $ freshenContact getPolicy get_status freshen_methods |
| 182 | -} | ||
| 181 | atomically $ do | 183 | atomically $ do |
| 182 | writeTVar (sessionTasks st) $ SessionTasks persuing refreshing | 184 | writeTVar (sessionTasks st) $ SessionTasks persuing _refreshing |
| 183 | let routing = dhtRouting params | 185 | let routing = dhtRouting params |
| 184 | Key _ nid = k | 186 | Key _ nid = k |
| 185 | registerNodeCallback routing $ NodeInfoCallback | 187 | registerNodeCallback routing $ NodeInfoCallback |