diff options
Diffstat (limited to 'Presence/XMPPServer.hs')
-rw-r--r-- | Presence/XMPPServer.hs | 2 |
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 |