1 files changed, 4 insertions, 4 deletions

diff --git a/src/Network/Tox/TCP.hs b/src/Network/Tox/TCP.hs
index 353b5ea3..48059108 100644
--- a/src/Network/Tox/TCP.hs
+++ b/src/Network/Tox/TCP.hs
@@ -203,10 +203,10 @@ getUDPNodes tcp seeking dst = do
         let meth = MethodSerializer -- MethodSerializer Nonce8 NodeInfo RelayPacket meth AnnounceRequest (Either String AnnounceResponse)
                     { methodTimeout = \tid addr -> return (addr,8000000) -- 8 second timeout
                     , method = () -- meth
-                    , wrapQuery = \n8 src dst x ->
-                        OnionPacket n24 $ Addressed (UDP.nodeAddr $ udpNodeInfo dst)
-                            $ wrapOnionPure b (wrap2 n24) (UDP.nodeAddr $ udpNodeInfo dst)
-                                $ wrapOnionPure c (wrap1 n24) (nodeAddr gateway)
+                    , wrapQuery = \n8 src gateway x ->
+                        OnionPacket n24 $ Addressed (UDP.nodeAddr dst)
+                            $ wrapOnionPure b (wrap2 n24) (nodeAddr gateway)
+                                $ wrapOnionPure c (wrap1 n24) (UDP.nodeAddr dst)
                                     $ NotForwarded $ encryptPayload (wrap0 n24)
                                        $ OnionAnnounce Asymm
                                             { senderKey  = transportPublic (tcpCrypto tcp)