localUserKey parameter on cookieRequest

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Network/Tox/DHT/Handlers.hs b/src/Network/Tox/DHT/Handlers.hs
index 38763f9c..60c0500c 100644
--- a/src/Network/Tox/DHT/Handlers.hs
+++ b/src/Network/Tox/DHT/Handlers.hs
@@ -243,8 +243,8 @@ ping client addr = do
     hPutStrLn stderr $ show addr ++ " -pong-> " ++ show reply
     maybe (return False) (\Pong -> return True) $ join reply
 
-cookieRequest :: TransportCrypto -> Client -> NodeInfo -> IO (Maybe Cookie)
-cookieRequest crypto client addr = do
+cookieRequest :: TransportCrypto -> Client -> PublicKey -> NodeInfo -> IO (Maybe Cookie)
+cookieRequest crypto client localUserKey addr = do
     let sockAddr = nodeAddr addr
         nid = id2key $ nodeId addr
     let incAddr sockMap
@@ -271,7 +271,7 @@ cookieRequest crypto client addr = do
                    , wrapQuery = \tid src dst cr -> DHTCookieRequest $ wrapAsymm tid src dst (, cr)
                    , unwrapResponse = fmap snd . unCookie
                    }
-        cookieRequest = CookieRequest (transportPublic crypto)
+        cookieRequest = CookieRequest localUserKey
     hPutStrLn stderr $ show addr ++ " <-- cookieRequest"
     reply <- QR.sendQuery client cookieSerializer cookieRequest addr
     hPutStrLn stderr $ show addr ++ " -cookieResponse-> " ++ show reply