diff options
| author | Joe Crayne <joe@jerkface.net> | 2018-09-09 17:21:56 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2018-09-21 18:18:58 -0400 |
| commit | 44553e7598cfea314f95d3380ea47dd4c688ba90 (patch) | |
| tree | 66d1c9b88d6b087171864fc32f314506f6d87a70 /src/Crypto/Tox.hs | |
| parent | 240338c4e45b7bde90ee78f7f82a35c4a43438f9 (diff) | |
Handle converting empty bytestring to Text.
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 |