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
          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