1 files changed, 5 insertions, 0 deletions

diff --git a/src/Crypto/Tox.hs b/src/Crypto/Tox.hs
index 0a7f07c3..d1992967 100644
--- a/src/Crypto/Tox.hs
+++ b/src/Crypto/Tox.hs
@@ -263,7 +263,12 @@ computeSharedSecret sk recipient = k `seq` \nonce ->
     in State hash crypt
  where
     -- diffie helman
+#if MIN_VERSION_cryptonite(0,24,0)
+    -- TODO: Handle failure.
+    Cryptonite.CryptoPassed shared = ecdh (Proxy :: Proxy Curve_X25519) sk recipient
+#else
     shared = ecdh (Proxy :: Proxy Curve_X25519) sk recipient
+#endif
     -- shared secret XSalsa key
     k = hsalsa20 shared zeros24