diff options
Diffstat (limited to 'dht/src/Network/Tox')
-rw-r--r-- | dht/src/Network/Tox/Handshake.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dht/src/Network/Tox/Handshake.hs b/dht/src/Network/Tox/Handshake.hs index 40bbbaf3..1ed93d8c 100644 --- a/dht/src/Network/Tox/Handshake.hs +++ b/dht/src/Network/Tox/Handshake.hs | |||
@@ -120,7 +120,7 @@ encodeHandshake :: POSIXTime | |||
120 | -> STM (Handshake Encrypted) | 120 | -> STM (Handshake Encrypted) |
121 | encodeHandshake timestamp crypto me them otherCookie myhandshakeData = do | 121 | encodeHandshake timestamp crypto me them otherCookie myhandshakeData = do |
122 | n24 <- transportNewNonce crypto | 122 | n24 <- transportNewNonce crypto |
123 | state <- ($ n24) <$> lookupNonceFunctionSTM timestamp crypto me them | 123 | state <- ($ n24) <$> lookupNonceFunctionSTM crypto me them |
124 | return Handshake { handshakeCookie = otherCookie | 124 | return Handshake { handshakeCookie = otherCookie |
125 | , handshakeNonce = n24 | 125 | , handshakeNonce = n24 |
126 | , handshakeData = encrypt state $ encodePlain myhandshakeData | 126 | , handshakeData = encrypt state $ encodePlain myhandshakeData |