diff options
| -rw-r--r-- | src/Network/Tox/Crypto/Handlers.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index caf35a28..9567ea87 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs | |||
| @@ -503,6 +503,10 @@ cryptoNetHandler sessions addr (NetHandshake (Handshake (Cookie n24 ecookie) non | |||
| 503 | symkey <- atomically $ transportSymmetric crypto | 503 | symkey <- atomically $ transportSymmetric crypto |
| 504 | now <- getPOSIXTime | 504 | now <- getPOSIXTime |
| 505 | lr <- fmap join . sequence $ do -- Either Monad | 505 | lr <- fmap join . sequence $ do -- Either Monad |
| 506 | -- TODO: XXX: FIXME: | ||
| 507 | -- The following call to decryptSymmetric is failing every time, | ||
| 508 | -- including when uTox tries to connect | ||
| 509 | -- Possibly my cookies are backwards? | ||
| 506 | (CookieData cookieTime remotePubkey remoteDhtkey) <- (decodePlain =<< decryptSymmetric symkey n24 ecookie) | 510 | (CookieData cookieTime remotePubkey remoteDhtkey) <- (decodePlain =<< decryptSymmetric symkey n24 ecookie) |
| 507 | Right $ do -- IO Monad | 511 | Right $ do -- IO Monad |
| 508 | decrypted <- anyRight seckeys $ \key -> do | 512 | decrypted <- anyRight seckeys $ \key -> do |