WIP: efforts regarding tcp-mediated connections.

1 files changed, 4 insertions, 1 deletions

diff --git a/dht/Announcer.hs b/dht/Announcer.hs
index e7c0bcd2..bdbf5ecc 100644
--- a/dht/Announcer.hs
+++ b/dht/Announcer.hs
@@ -176,7 +176,10 @@ listener announcer = relisten
               Just cmd -> return $ handleCommand cmd
               Nothing  -> do
                 writeTVar (scheduled announcer) (Schedule queue')
-                (fmap (>> relisten) (fmap fork (f announcer k now)))
+                io <- f announcer k now
+                return $ do
+                    forkLabeled ("announcer:item:"++unpackAnnounceKey announcer k) io
+                    relisten
       where
         modifyScheduled f               = modifyTVar (scheduled announcer) (Schedule . f . unSchedule)
         declareInactive                 = writeTVar (announcerActive announcer) False