From f2e7d76a22681beabcfdbc727b3fe320d34af7e5 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Tue, 29 May 2018 00:54:28 +0000 Subject: netCrypto function, ready for testing? --- src/Network/Tox/Crypto/Handlers.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Network/Tox/Crypto') diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index bffb4280..0e349196 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs @@ -7,7 +7,7 @@ import Network.QueryResponse import Network.Tox.NodeId import Network.Tox.Crypto.Transport import Network.Tox.DHT.Transport (Cookie(..),CookieData(..), CookieRequest(..), NoSpam(..)) -import Network.Tox.DHT.Handlers (Client, cookieRequest, cookieRequestH ) +import Network.Tox.DHT.Handlers (Client, cookieRequest, createCookie ) import Crypto.Tox import Control.Concurrent.STM import Network.Address @@ -212,7 +212,7 @@ newHandShakeData crypto basenonce (HParam {hpOtherCookie,hpMySecretKey,hpCookieR = do freshCookie <- case nodeInfo (key2id hpCookieRemoteDhtkey) addr of - Right nodeinfo -> Just <$> cookieRequestH crypto nodeinfo (CookieRequest hpCookieRemotePubkey) + Right nodeinfo -> Just <$> createCookie crypto nodeinfo hpCookieRemotePubkey Left er -> return Nothing let hinit = hashInit Cookie n24 encrypted = hpOtherCookie -- cgit v1.2.3