1 files changed, 3 insertions, 1 deletions

diff --git a/Presence/Presence.hs b/Presence/Presence.hs
index a55d49ab..678a5c99 100644
--- a/Presence/Presence.hs
+++ b/Presence/Presence.hs
@@ -99,7 +99,8 @@ data ToxManager k = ToxManager
 
 data PresenceState = forall status. PresenceState
     { clients         :: TVar (Map ConnectionKey ClientState)
-    , clientsByUser   :: TVar (Map Text LocalPresence)
+    , clientsByUser   :: TVar (Map Text LocalPresence) -- TODO: For tox-enabled clients, the lookup key should be the client's toxid
+                                                       --       rather than the unix user.
     , remotesByPeer   :: TVar (Map ConnectionKey
                                    (Map UserName RemotePresence))
     , server          :: TMVar (XMPPServer, Connection.Manager status Text)
@@ -601,6 +602,7 @@ deliverMessage state fail msg =
         let to' = unsplitJID (n,h,r)
         cmap <- atomically . readTVar $ clientsByUser state
         chans <- fmap (fromMaybe []) $ do
+            -- TODO: Tox-enabled clients need to be found by tox key.
             forM (n >>= flip Map.lookup cmap) $ \presence_container -> do
             let ks = Map.keys (networkClients presence_container)
                 chans = do