diff options
author | joe <joe@jerkface.net> | 2018-05-30 21:28:13 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2018-05-30 21:28:13 -0400 |
commit | 89f012de3884c56ed48932091ebe9c5d5a291d27 (patch) | |
tree | 1b1537afd3efdf53e4d34c337900c0f7fde49fc9 /ToxToXMPP.hs | |
parent | efc45ad4c240529913e4f7d4f0c9f880cba6c0f9 (diff) |
TODO comment.
Diffstat (limited to 'ToxToXMPP.hs')
-rw-r--r-- | ToxToXMPP.hs | 5 |
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) |