Do not send cached presence until a resource has sent initial presence.

1 files changed, 0 insertions, 2 deletions

diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index 9661391e..4dda1f70 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -190,7 +190,6 @@ data XMPPServerParameters =
     , xmppInformClientPresence :: ConnectionKey -> Stanza -> IO ()
     , xmppInformPeerPresence :: ConnectionKey -> Stanza -> IO ()
     , xmppAnswerProbe :: ConnectionKey -> Stanza -> TChan Stanza -> IO ()
-    , xmppSendCachedPresenceToClient :: ConnectionKey -> TChan Stanza -> IO ()
     }
 
 
@@ -1592,7 +1591,6 @@ monitor sv params xmpp = do
                                   (Just rsc) -- to
                                   requestVersion
                               >>= ioWriteChan replyto
-                            xmppSendCachedPresenceToClient xmpp k replyto
                         SessionRequest -> do
                             me <- xmppTellMyNameToClient xmpp
                             let reply = iq_session_reply (stanzaId stanza) me