computeSharedSecret: more explicit pre-computation.

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
 
 -- (Poly1305.State, XSalsa.State)
 computeSharedSecret :: SecretKey -> PublicKey -> Nonce24 -> State
-computeSharedSecret sk recipient = \nonce ->
+computeSharedSecret sk recipient = k `seq` \nonce ->
     let -- cipher state
         st0 = XSalsa.initialize 20 k nonce
         -- Poly1305 key