diff options
-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 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 |