1 files changed, 1 insertions, 1 deletions

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