summaryrefslogtreecommitdiff
path: root/dht/src/Network/Tox/Handshake.hs
diff options
context:
space:
mode:
Diffstat (limited to 'dht/src/Network/Tox/Handshake.hs')
-rw-r--r--dht/src/Network/Tox/Handshake.hs2
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)
121encodeHandshake timestamp crypto me them otherCookie myhandshakeData = do 121encodeHandshake 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