summaryrefslogtreecommitdiff
path: root/src/Network/Tox
diff options
context:
space:
mode:
authorJames Crayne <jim.crayne@gmail.com>2018-05-30 03:47:29 +0000
committerJames Crayne <jim.crayne@gmail.com>2018-05-30 03:47:29 +0000
commit01a60bfb0a6233ab0634bfa80a2ef2e36987ff8c (patch)
tree082f57a40c39a868a416d68bfe46c1396a21be6e /src/Network/Tox
parent0e81474a6f2cd6d714b81e2fb6e0653b7c1e1845 (diff)
FIXME comment in cryptoNetHandler
Diffstat (limited to 'src/Network/Tox')
-rw-r--r--src/Network/Tox/Crypto/Handlers.hs4
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