diff options
Diffstat (limited to 'src/Crypto/Tox.hs')
| -rw-r--r-- | src/Crypto/Tox.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Crypto/Tox.hs b/src/Crypto/Tox.hs index c44282cf..61a392e2 100644 --- a/src/Crypto/Tox.hs +++ b/src/Crypto/Tox.hs | |||
| @@ -270,6 +270,10 @@ computeSharedSecret sk recipient = k `seq` \nonce -> | |||
| 270 | -- diffie helman | 270 | -- diffie helman |
| 271 | #if MIN_VERSION_cryptonite(0,24,0) | 271 | #if MIN_VERSION_cryptonite(0,24,0) |
| 272 | -- TODO: Handle failure. | 272 | -- TODO: Handle failure. |
| 273 | -- Failure was observed... | ||
| 274 | -- Reproduce by issuing tox command "ping 192.168.10.1:33446" without specifying | ||
| 275 | -- the public key portion of the node id. | ||
| 276 | -- "Irrefutable pattern failed for pattern CryptoPassed shared" | ||
| 273 | Cryptonite.CryptoPassed shared = ecdh (Proxy :: Proxy Curve_X25519) sk recipient | 277 | Cryptonite.CryptoPassed shared = ecdh (Proxy :: Proxy Curve_X25519) sk recipient |
| 274 | #else | 278 | #else |
| 275 | shared = ecdh (Proxy :: Proxy Curve_X25519) sk recipient | 279 | shared = ecdh (Proxy :: Proxy Curve_X25519) sk recipient |