1 files changed, 1 insertions, 1 deletions

diff --git a/dht/src/Network/Tox/TCP.hs b/dht/src/Network/Tox/TCP.hs
index 04119164..9f0af976 100644
--- a/dht/src/Network/Tox/TCP.hs
+++ b/dht/src/Network/Tox/TCP.hs
@@ -349,7 +349,7 @@ newClient crypto store load lookupSender getRoute = do
                 OOBRecv k bs            -> IsUnsolicited $ handleOOB k bs
                 wut                     -> IsUnknown (show wut)
             , lookupHandler   = \case
-                PingPacket -> trace ("tcp-received-ping") $ Just MethodHandler
+                PingPacket -> 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)