diff options
| -rw-r--r-- | src/Network/Tox/Crypto/Handlers.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index 485c5219..9e023b29 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs | |||
| @@ -415,7 +415,7 @@ freshCryptoSession sessions | |||
| 415 | ncState0 <- atomically $ newTVar Accepted | 415 | ncState0 <- atomically $ newTVar Accepted |
| 416 | ncTheirBaseNonce0 <- atomically $ newTVar theirBaseNonce | 416 | ncTheirBaseNonce0 <- atomically $ newTVar theirBaseNonce |
| 417 | n24 <- atomically $ transportNewNonce crypto | 417 | n24 <- atomically $ transportNewNonce crypto |
| 418 | state <- lookupSharedSecret crypto key remoteDhtPublicKey n24 | 418 | state <- lookupSharedSecret crypto key remotePublicKey n24 |
| 419 | newBaseNonce <- atomically $ transportNewNonce crypto | 419 | newBaseNonce <- atomically $ transportNewNonce crypto |
| 420 | mbMyhandshakeData <- newHandShakeData crypto newBaseNonce hp addr | 420 | mbMyhandshakeData <- newHandShakeData crypto newBaseNonce hp addr |
| 421 | let encodeHandshake myhandshakeData = let plain = encodePlain myhandshakeData | 421 | let encodeHandshake myhandshakeData = let plain = encodePlain myhandshakeData |