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 f8343f8d..4b775049 100644 --- a/dht/Announcer/Tox.hs +++ b/dht/Announcer/Tox.hs | |||
| @@ -183,7 +183,7 @@ scheduleSearch announcer k SearchMethod{sSearch,sWithResult,sNearestNodes,sTarge | |||
| 183 | ns <- atomically $ newTVar MM.empty | 183 | ns <- atomically $ newTVar MM.empty |
| 184 | let astate = AnnounceState st ns | 184 | let astate = AnnounceState st ns |
| 185 | onResult sr = do | 185 | onResult sr = do |
| 186 | runAction announcer $ do | 186 | runAction announcer "with-search-result" $ do |
| 187 | got <- sWithResult r sr | 187 | got <- sWithResult r sr |
| 188 | -- If we had a way to get the source of a search result, we might want to | 188 | -- If we had a way to get the source of a search result, we might want to |
| 189 | -- treat it similarly to an announcing node and remember it in the 'aStoringNodes' | 189 | -- treat it similarly to an announcing node and remember it in the 'aStoringNodes' |