diff options
Diffstat (limited to 'dht/Announcer/Tox.hs')
-rw-r--r-- | dht/Announcer/Tox.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dht/Announcer/Tox.hs b/dht/Announcer/Tox.hs index 00eb219b..38e5bbfa 100644 --- a/dht/Announcer/Tox.hs +++ b/dht/Announcer/Tox.hs | |||
@@ -193,7 +193,7 @@ scheduleSearch announcer k SearchMethod{sSearch,sWithResult,sNearestNodes,sTarge | |||
193 | mutex <- newMVar () -- This mutex insures one search at a time. | 193 | mutex <- newMVar () -- This mutex insures one search at a time. |
194 | let astate = AnnounceState st ns | 194 | let astate = AnnounceState st ns |
195 | onResult sr = do | 195 | onResult sr = do |
196 | runAction announcer "with-search-result" $ do | 196 | runAction announcer ("search-result:"++unpackAnnounceKey announcer k) $ do |
197 | got <- sWithResult r sr | 197 | got <- sWithResult r sr |
198 | -- If we had a way to get the source of a search result, we might want to | 198 | -- If we had a way to get the source of a search result, we might want to |
199 | -- treat it similarly to an announcing node and remember it in the 'aStoringNodes' | 199 | -- treat it similarly to an announcing node and remember it in the 'aStoringNodes' |