summaryrefslogtreecommitdiff
path: root/Announcer
diff options
context:
space:
mode:
Diffstat (limited to 'Announcer')
-rw-r--r--Announcer/Tox.hs3
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'