Debug print upon toxid garbage collection.

2 files changed, 2 insertions, 1 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
     fix $ \loop -> do
     cutoff <- getPOSIXTime
     threadDelay 300000000 -- 300 seconds
+    dput XAnnounce "(gc:toxids) Garbage collecting announced toxids."
     join $ atomically $ do
         fix $ \gc -> do
         keys <- readTVar db
diff --git a/dht/src/Network/Tox/TCP.hs b/dht/src/Network/Tox/TCP.hs
index 5dfb8382..d0d67f25 100644
--- a/dht/src/Network/Tox/TCP.hs
+++ b/dht/src/Network/Tox/TCP.hs
@@ -304,7 +304,7 @@ newClient crypto store load = do
                 PingPacket -> trace ("tcp-received-ping") $ Just MethodHandler
                     { methodParse     = \case (_,RelayPing n8) -> Right ()
                                               _                -> trace ("tcp-non-ping") $ Left "TCP: Non-ping?"
-                    , methodSerialize = \n8 src dst () -> trace ("tcp-made-pong-"++show n8) (False, RelayPong n8)
+                    , methodSerialize = \n8 src dst () -> {- trace ("tcp-made-pong-"++show n8) -} (False, RelayPong n8)
                     , methodAction    = \src () -> dput XTCP $ "TCP pinged by "++show src
                     }
                 w -> trace ("tcp-lookupHandler: "++show w) $ Just NoReply