diff options
| author | joe <joe@jerkface.net> | 2013-06-26 15:45:16 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2013-06-26 15:45:16 -0400 |
| commit | 5610131fadb45479984da20143cbc87ce0b04a59 (patch) | |
| tree | 5a95b87001738df89dabb58c5dcdf2dff8bad6fa /Presence/XMPPServer.hs | |
| parent | 3cd15d1fd7fc1a06f850830e0f03008e1da49f70 (diff) | |
comments
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 |