diff options
author | James Crayne <jim.crayne@gmail.com> | 2018-05-30 03:47:29 +0000 |
---|---|---|
committer | James Crayne <jim.crayne@gmail.com> | 2018-05-30 03:47:29 +0000 |
commit | 01a60bfb0a6233ab0634bfa80a2ef2e36987ff8c (patch) | |
tree | 082f57a40c39a868a416d68bfe46c1396a21be6e /src/Network/Tox/Crypto | |
parent | 0e81474a6f2cd6d714b81e2fb6e0653b7c1e1845 (diff) |
FIXME comment in cryptoNetHandler
Diffstat (limited to 'src/Network/Tox/Crypto')
-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 |