summaryrefslogtreecommitdiff
path: root/Presence/XMPPServer.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Presence/XMPPServer.hs')
-rw-r--r--Presence/XMPPServer.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index 3413dcfb..54ee0975 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -769,5 +769,7 @@ seekRemotePeers config chan = do
769 forM_ (Set.toList peers) $ \peer -> do 769 forM_ (Set.toList peers) $ \peer -> do
770 when (is_remote peer) $ 770 when (is_remote peer) $
771 liftIO $ sendMessage server_connections (OutBoundPresence p) peer 771 liftIO $ sendMessage server_connections (OutBoundPresence p) peer
772 -- TODO: send presence probes for buddies
773 -- TODO: cache remote presences for clients
772 _ -> return (Just ()) 774 _ -> return (Just ())
773 loop 775 loop