diff options
| -rw-r--r-- | src/Network/Tox.hs | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs index 61f0bab0..69975c0a 100644 --- a/src/Network/Tox.hs +++ b/src/Network/Tox.hs | |||
| @@ -265,14 +265,11 @@ netCrypto tox myseckey theirpubkey = do | |||
| 265 | Nothing -> do | 265 | Nothing -> do |
| 266 | hPutStrLn stderr ("netCrypto: (" ++ show mykeyAsId ++") friend not found (" ++ show theirkeyAsId ++ ").") | 266 | hPutStrLn stderr ("netCrypto: (" ++ show mykeyAsId ++") friend not found (" ++ show theirkeyAsId ++ ").") |
| 267 | return [] | 267 | return [] |
| 268 | Just contact -> do | 268 | Just contact@(Contact { contactKeyPacket = mbKeyPkt |
| 269 | -- TODO | 269 | , contactLastSeenAddr = mbSAddr |
| 270 | -- convert public key to NodeInfo check ContactInfo | 270 | , contactFriendRequest = mbFR |
| 271 | -- | 271 | , contactPolicy = mbPolicy |
| 272 | -- > case nodeInfo (key2id theirpubkey) saddr of | 272 | }) -> do |
| 273 | -- > Left -> fail... | ||
| 274 | -- > Right ni -> | ||
| 275 | -- | ||
| 276 | sessionsMap <- atomically $ readTVar (netCryptoSessionsByKey (toxCryptoSessions tox) ) | 273 | sessionsMap <- atomically $ readTVar (netCryptoSessionsByKey (toxCryptoSessions tox) ) |
| 277 | let sessionUsesIdentity key session = key == ncMyPublicKey session | 274 | let sessionUsesIdentity key session = key == ncMyPublicKey session |
| 278 | case Map.lookup theirpubkey sessionsMap of | 275 | case Map.lookup theirpubkey sessionsMap of |