summaryrefslogtreecommitdiff
path: root/src/Crypto/Tox.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Crypto/Tox.hs')
-rw-r--r--src/Crypto/Tox.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Crypto/Tox.hs b/src/Crypto/Tox.hs
index f427421e..88a7372f 100644
--- a/src/Crypto/Tox.hs
+++ b/src/Crypto/Tox.hs
@@ -244,7 +244,7 @@ encrypt (State hash crypt) (Plain m) = Encrypted $ B.append (encode a) c
244 244
245-- (Poly1305.State, XSalsa.State) 245-- (Poly1305.State, XSalsa.State)
246computeSharedSecret :: SecretKey -> PublicKey -> Nonce24 -> State 246computeSharedSecret :: SecretKey -> PublicKey -> Nonce24 -> State
247computeSharedSecret sk recipient = \nonce -> 247computeSharedSecret sk recipient = k `seq` \nonce ->
248 let -- cipher state 248 let -- cipher state
249 st0 = XSalsa.initialize 20 k nonce 249 st0 = XSalsa.initialize 20 k nonce
250 -- Poly1305 key 250 -- Poly1305 key