From 5610131fadb45479984da20143cbc87ce0b04a59 Mon Sep 17 00:00:00 2001 From: joe Date: Wed, 26 Jun 2013 15:45:16 -0400 Subject: comments --- Presence/XMPPServer.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'Presence/XMPPServer.hs') 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 forM_ (Set.toList peers) $ \peer -> do when (is_remote peer) $ liftIO $ sendMessage server_connections (OutBoundPresence p) peer + -- TODO: send presence probes for buddies + -- TODO: cache remote presences for clients _ -> return (Just ()) loop -- cgit v1.2.3