diff options
Diffstat (limited to 'src/Network/Tox/Crypto/Handlers.hs')
| -rw-r--r-- | src/Network/Tox/Crypto/Handlers.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index 9e5bd94e..41ab8d41 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs | |||
| @@ -548,10 +548,6 @@ cryptoNetHandler sessions addr (NetHandshake (Handshake (Cookie n24 ecookie) non | |||
| 548 | now <- getPOSIXTime | 548 | now <- getPOSIXTime |
| 549 | dput XNetCrypto ("Decrypt cookie with n24=" ++ show n24 ++ "\n symkey= " ++ show symkey) | 549 | dput XNetCrypto ("Decrypt cookie with n24=" ++ show n24 ++ "\n symkey= " ++ show symkey) |
| 550 | lr <- fmap join . sequence $ do -- Either Monad | 550 | lr <- fmap join . sequence $ do -- Either Monad |
| 551 | -- TODO: XXX: FIXME: | ||
| 552 | -- The following call to decryptSymmetric is failing every time, | ||
| 553 | -- including when uTox tries to connect | ||
| 554 | -- Possibly my cookies are backwards? | ||
| 555 | (CookieData cookieTime remotePubkey remoteDhtkey) <- (decodePlain =<< decryptSymmetric symkey n24 ecookie) | 551 | (CookieData cookieTime remotePubkey remoteDhtkey) <- (decodePlain =<< decryptSymmetric symkey n24 ecookie) |
| 556 | Right $ do -- IO Monad | 552 | Right $ do -- IO Monad |
| 557 | decrypted <- anyRight seckeys $ \key -> do | 553 | decrypted <- anyRight seckeys $ \key -> do |