summaryrefslogtreecommitdiff
path: root/src/Network
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network')
-rw-r--r--src/Network/Tox/Crypto/Handlers.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index cd227a4d..86b5b138 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -556,8 +556,9 @@ updateCryptoSession sessions addr hp session = do
556 dput XNetCrypto (" ncTheirDHTKey=" ++ show (ncTheirDHTKey session) 556 dput XNetCrypto (" ncTheirDHTKey=" ++ show (ncTheirDHTKey session)
557 ++ bool "{/=}" "{==}" (ncTheirDHTKey session == hpCookieRemoteDhtkey hp) 557 ++ bool "{/=}" "{==}" (ncTheirDHTKey session == hpCookieRemoteDhtkey hp)
558 ++ "hpCookieRemoteDhtkey=" ++ show (hpCookieRemoteDhtkey hp)) 558 ++ "hpCookieRemoteDhtkey=" ++ show (hpCookieRemoteDhtkey hp))
559 when ( Just ncTheirBaseNonce0 /= hpTheirBaseNonce hp -- XXX: Do we really want to compare base nonce here? 559 when ( -- Just ncTheirBaseNonce0 /= hpTheirBaseNonce hp -- XXX: Do we really want to compare base nonce here?
560 || ncTheirDHTKey session /= hpCookieRemoteDhtkey hp 560 -- ||
561 ncTheirDHTKey session /= hpCookieRemoteDhtkey hp
561 ) $ freshCryptoSession sessions addr hp 562 ) $ freshCryptoSession sessions addr hp
562 else do 563 else do
563 dput XNetCrypto "updateCryptoSession else clause" 564 dput XNetCrypto "updateCryptoSession else clause"