summaryrefslogtreecommitdiff
path: root/dht/src/Network/Tox/Onion/Handlers.hs
diff options
context:
space:
mode:
Diffstat (limited to 'dht/src/Network/Tox/Onion/Handlers.hs')
-rw-r--r--dht/src/Network/Tox/Onion/Handlers.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/dht/src/Network/Tox/Onion/Handlers.hs b/dht/src/Network/Tox/Onion/Handlers.hs
index f44dd79c..25713aa1 100644
--- a/dht/src/Network/Tox/Onion/Handlers.hs
+++ b/dht/src/Network/Tox/Onion/Handlers.hs
@@ -181,6 +181,7 @@ forkAnnouncedKeysGC db = forkIO $ do
181 fix $ \loop -> do 181 fix $ \loop -> do
182 cutoff <- getPOSIXTime 182 cutoff <- getPOSIXTime
183 threadDelay 300000000 -- 300 seconds 183 threadDelay 300000000 -- 300 seconds
184 dput XAnnounce "(gc:toxids) Garbage collecting announced toxids."
184 join $ atomically $ do 185 join $ atomically $ do
185 fix $ \gc -> do 186 fix $ \gc -> do
186 keys <- readTVar db 187 keys <- readTVar db