diff options
Diffstat (limited to 'src/Network')
-rw-r--r-- | src/Network/Tox/Crypto/Handlers.hs | 5 |
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" |