1 files changed, 8 insertions, 0 deletions

diff --git a/src/Network/Tox/TCP.hs b/src/Network/Tox/TCP.hs
index c9c3d9a6..5b5b4f4e 100644
--- a/src/Network/Tox/TCP.hs
+++ b/src/Network/Tox/TCP.hs
@@ -173,6 +173,14 @@ handle2route o src dst = do
     dput XMisc $ "TODO: handle2route " ++ show src
     return Nothing
 
+tcpPing :: Client err () Nonce8 addr RelayPacket -> addr -> IO (Maybe ())
+tcpPing client dst = sendQuery client meth () dst
+ where meth = MethodSerializer
+                { wrapQuery      = \n8 src dst () -> RelayPing n8
+                , unwrapResponse = \_ -> ()
+                , methodTimeout  = \n8 dst -> return (dst,5000000)
+                , method         = ()
+                }
 
 newClient :: TransportCrypto -> IO (Client String () Nonce8 NodeInfo RelayPacket)
 newClient crypto = do