diff options
author | Joe Crayne <joe@jerkface.net> | 2019-12-05 10:15:42 -0500 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2020-01-01 23:22:52 -0500 |
commit | 49d0ad9f2adef768d972c12117b0e51c3ebe1b5e (patch) | |
tree | e783ae359759329e8ce970ee93f6ef9b8d4586fc /dht/Announcer | |
parent | d6dc5ae72b8fd18c8d2e4f72c59dc6f93d635bc7 (diff) |
Simplification and documentation of Announcer.
Diffstat (limited to 'dht/Announcer')
-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' |