summaryrefslogtreecommitdiff
path: root/src/Network/Tox
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/Tox')
-rw-r--r--src/Network/Tox/Crypto/Handlers.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index f59809fd..e22388a3 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -724,8 +724,8 @@ updateCryptoSession sessions addr newsession timestamp hp session handshake = do
724 dmsg (" ncTheirDHTKey=" ++ show (ncTheirDHTKey session) 724 dmsg (" ncTheirDHTKey=" ++ show (ncTheirDHTKey session)
725 ++ bool "{/=}" "{==}" (ncTheirDHTKey session == HaveDHTKey (hpCookieRemoteDhtkey hp)) 725 ++ bool "{/=}" "{==}" (ncTheirDHTKey session == HaveDHTKey (hpCookieRemoteDhtkey hp))
726 ++ "hpCookieRemoteDhtkey=" ++ show (hpCookieRemoteDhtkey hp)) 726 ++ "hpCookieRemoteDhtkey=" ++ show (hpCookieRemoteDhtkey hp))
727 if ( -- Just ncTheirBaseNonce0 /= hpTheirBaseNonce hp -- XXX: Do we really want to compare base nonce here? 727 if ( toMaybe ncTheirBaseNonce0 /= hpTheirBaseNonce hp
728 -- || 728 ||
729 ncTheirDHTKey session /= HaveDHTKey (hpCookieRemoteDhtkey hp) 729 ncTheirDHTKey session /= HaveDHTKey (hpCookieRemoteDhtkey hp)
730 ) 730 )
731 then freshCryptoSession sessions addr newsession timestamp hp 731 then freshCryptoSession sessions addr newsession timestamp hp