diff options
| author | joe <joe@jerkface.net> | 2018-05-30 23:53:44 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2018-05-30 23:53:44 -0400 |
| commit | 514d0cad3f2ccaf0e89aadb4ab3067884ec20a6c (patch) | |
| tree | a7d15e0d3592f123b10f2da3a458c023bd74de5b /src/Network/Tox/Crypto/Handlers.hs | |
| parent | 2cffde93a0d814ebb54bdcbd3d6e598cbaae6ee1 (diff) | |
tox: Removed obsolete "userKeys" TVar, use keys from ContactInfo.
Diffstat (limited to 'src/Network/Tox/Crypto/Handlers.hs')
| -rw-r--r-- | src/Network/Tox/Crypto/Handlers.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index 95cb1bc8..9e5bd94e 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs | |||
| @@ -543,7 +543,7 @@ cryptoNetHandler sessions addr (NetHandshake (Handshake (Cookie n24 ecookie) non | |||
| 543 | allsessions = netCryptoSessions sessions | 543 | allsessions = netCryptoSessions sessions |
| 544 | anyRight [] f = return $ Left "missing key" | 544 | anyRight [] f = return $ Left "missing key" |
| 545 | anyRight (x:xs) f = f x >>= either (const $ anyRight xs f) (return . Right) | 545 | anyRight (x:xs) f = f x >>= either (const $ anyRight xs f) (return . Right) |
| 546 | seckeys <- map fst <$> atomically (readTVar (userKeys crypto)) | 546 | seckeys <- map fst <$> atomically (userKeys crypto) |
| 547 | symkey <- atomically $ transportSymmetric crypto | 547 | symkey <- atomically $ transportSymmetric crypto |
| 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) |