1 files changed, 3 insertions, 0 deletions

diff --git a/Presence/XMPP.hs b/Presence/XMPP.hs
index c81ed8c7..fd29473e 100644
--- a/Presence/XMPP.hs
+++ b/Presence/XMPP.hs
@@ -249,6 +249,9 @@ handleIQSetBind session cmdChan stanza_id = do
                 setResource session (L.fromChunks [S.encodeUtf8 rsc])
                 jid <- getJID session
                 atomically $ writeTChan cmdChan (Send $ iq_bind_reply stanza_id (toStrict $ L.decodeUtf8 $ L.show jid) )
+                forCachedPresence session $ \presence -> do
+                    xs <- xmlifyPresenceForClient presence
+                    atomically . writeTChan cmdChan . Send $ xs
         _ -> unhandledBind