diff options
Diffstat (limited to 'Announcer/Tox.hs')
| -rw-r--r-- | Announcer/Tox.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Announcer/Tox.hs b/Announcer/Tox.hs index d0fc828f..38741d10 100644 --- a/Announcer/Tox.hs +++ b/Announcer/Tox.hs | |||
| @@ -185,8 +185,7 @@ scheduleSearch announcer k SearchMethod{sSearch,sWithResult,sNearestNodes,sTarge | |||
| 185 | ns <- atomically $ newTVar MM.empty | 185 | ns <- atomically $ newTVar MM.empty |
| 186 | let astate = AnnounceState st ns | 186 | let astate = AnnounceState st ns |
| 187 | onResult sr = do | 187 | onResult sr = do |
| 188 | -- XXX: Using /k/ here as the announce key is causing the search not to repeat. | 188 | runAction announcer $ do |
| 189 | scheduleImmediately announcer k $ ScheduledItem $ \_ _ _ -> return $ do | ||
| 190 | got <- sWithResult r sr | 189 | got <- sWithResult r sr |
| 191 | -- If we had a way to get the source of a search result, we might want to | 190 | -- If we had a way to get the source of a search result, we might want to |
| 192 | -- treat it similarly to an announcing node and remember it in the 'aStoringNodes' | 191 | -- treat it similarly to an announcing node and remember it in the 'aStoringNodes' |