ensure the announce key search repeats

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
     ns <- atomically $ newTVar MM.empty
     let astate = AnnounceState st ns
         onResult sr = do
-                -- XXX: Using /k/ here as the announce key is causing the search not to repeat.
-                scheduleImmediately announcer k $ ScheduledItem $ \_ _ _ -> return $ do
+                runAction announcer $ do
                     got <- sWithResult r sr
                     -- If we had a way to get the source of a search result, we might want to
                     -- treat it similarly to an announcing node and remember it in the 'aStoringNodes'