diff options
Diffstat (limited to 'src/Network/Tox/Crypto')
-rw-r--r-- | src/Network/Tox/Crypto/Handlers.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 | |||
7 | import Network.Tox.NodeId | 7 | import Network.Tox.NodeId |
8 | import Network.Tox.Crypto.Transport | 8 | import Network.Tox.Crypto.Transport |
9 | import Network.Tox.DHT.Transport (Cookie(..),CookieData(..), CookieRequest(..), NoSpam(..)) | 9 | import Network.Tox.DHT.Transport (Cookie(..),CookieData(..), CookieRequest(..), NoSpam(..)) |
10 | import Network.Tox.DHT.Handlers (Client, cookieRequest, cookieRequestH ) | 10 | import Network.Tox.DHT.Handlers (Client, cookieRequest, createCookie ) |
11 | import Crypto.Tox | 11 | import Crypto.Tox |
12 | import Control.Concurrent.STM | 12 | import Control.Concurrent.STM |
13 | import Network.Address | 13 | import Network.Address |
@@ -212,7 +212,7 @@ newHandShakeData crypto basenonce (HParam {hpOtherCookie,hpMySecretKey,hpCookieR | |||
212 | = do | 212 | = do |
213 | freshCookie | 213 | freshCookie |
214 | <- case nodeInfo (key2id hpCookieRemoteDhtkey) addr of | 214 | <- case nodeInfo (key2id hpCookieRemoteDhtkey) addr of |
215 | Right nodeinfo -> Just <$> cookieRequestH crypto nodeinfo (CookieRequest hpCookieRemotePubkey) | 215 | Right nodeinfo -> Just <$> createCookie crypto nodeinfo hpCookieRemotePubkey |
216 | Left er -> return Nothing | 216 | Left er -> return Nothing |
217 | let hinit = hashInit | 217 | let hinit = hashInit |
218 | Cookie n24 encrypted = hpOtherCookie | 218 | Cookie n24 encrypted = hpOtherCookie |