From 8980cc601aad0851e7a3f0ddcf55f1ad3fe6963d Mon Sep 17 00:00:00 2001
From: James Crayne <jim.crayne@gmail.com>
Date: Mon, 28 May 2018 23:01:09 +0000
Subject: remove old dubious TODO comment

---
 src/Network/Tox.hs | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

(limited to 'src/Network/Tox.hs')

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
          Nothing -> do
             hPutStrLn stderr ("netCrypto: (" ++ show mykeyAsId ++") friend not found (" ++ show theirkeyAsId ++ ").")
             return []
-         Just contact -> do
-            -- TODO
-            -- convert public key to NodeInfo check ContactInfo
-            --
-            -- > case nodeInfo (key2id theirpubkey) saddr of
-            -- >  Left -> fail...
-            -- >  Right ni ->
-            --
+         Just contact@(Contact { contactKeyPacket     = mbKeyPkt
+                               , contactLastSeenAddr  = mbSAddr
+                               , contactFriendRequest = mbFR
+                               , contactPolicy        = mbPolicy
+                               }) -> do
             sessionsMap <- atomically $ readTVar (netCryptoSessionsByKey (toxCryptoSessions tox) )
             let sessionUsesIdentity key session = key == ncMyPublicKey session
             case Map.lookup theirpubkey sessionsMap of
-- 
cgit v1.2.3