1 files changed, 2 insertions, 2 deletions

diff --git a/dht/src/Network/Tox/TCP.hs b/dht/src/Network/Tox/TCP.hs
index d0d67f25..e80a22d1 100644
--- a/dht/src/Network/Tox/TCP.hs
+++ b/dht/src/Network/Tox/TCP.hs
@@ -229,7 +229,7 @@ getUDPNodes' tcp seeking dst0 = do
                         AnnounceRequest
                         (Either String AnnounceResponse)
             meth = MethodSerializer
-                    { methodTimeout = \tid addr -> return (addr,12000000) -- 12 second timeout
+                    { methodTimeout = \addr -> return (addr,12000000) -- 12 second timeout
                     , method = OnionPacketID -- meth
                     , wrapQuery = \n8 src gateway x -> (,) True $
                         OnionPacket n24 $ Addressed (UDP.nodeAddr dst)
@@ -269,7 +269,7 @@ tcpPing client dst = do
  where meth = MethodSerializer
                 { wrapQuery      = \n8 src dst () -> (True,RelayPing n8)
                 , unwrapResponse = \_ -> ()
-                , methodTimeout  = \n8 dst -> return (dst,5000000)
+                , methodTimeout  = \dst -> return (dst,5000000)
                 , method         = PingPacket
                 }