summaryrefslogtreecommitdiff
path: root/ToxToXMPP.hs
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2018-05-30 21:28:13 -0400
committerjoe <joe@jerkface.net>2018-05-30 21:28:13 -0400
commit89f012de3884c56ed48932091ebe9c5d5a291d27 (patch)
tree1b1537afd3efdf53e4d34c337900c0f7fde49fc9 /ToxToXMPP.hs
parentefc45ad4c240529913e4f7d4f0c9f880cba6c0f9 (diff)
TODO comment.
Diffstat (limited to 'ToxToXMPP.hs')
-rw-r--r--ToxToXMPP.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/ToxToXMPP.hs b/ToxToXMPP.hs
index 26cfa58c..e1ddf6b5 100644
--- a/ToxToXMPP.hs
+++ b/ToxToXMPP.hs
@@ -63,6 +63,11 @@ dispatch acnt st (OnionRouted theirkey (OnionFriendRequest fr) ) = do
63 k2c <- Map.filterWithKey (\k _ -> k `Set.member` refs) <$> readTVar (keyToChan st) 63 k2c <- Map.filterWithKey (\k _ -> k `Set.member` refs) <$> readTVar (keyToChan st)
64 clients <- readTVar (clients st) 64 clients <- readTVar (clients st)
65 return $ Map.intersectionWith (,) k2c clients 65 return $ Map.intersectionWith (,) k2c clients
66 -- TODO: Below we're using our nospam (that they used in their friend
67 -- request to us) as their jabber user id. This isn't the right thing, but
68 -- we don't know their user-id. Perhaps there should be a way to parse it
69 -- out of the friend request text. Maybe after a zero-termination, or as
70 -- visible text (nospam:...).
66 let theirjid = key2jid (friendNoSpam fr) theirkey 71 let theirjid = key2jid (friendNoSpam fr) theirkey
67 forM_ k2c $ \(conn,client) -> do 72 forM_ k2c $ \(conn,client) -> do
68 self <- localJID (clientUser client) (clientProfile client) (clientResource client) 73 self <- localJID (clientUser client) (clientProfile client) (clientResource client)