1 files changed, 5 insertions, 0 deletions

diff --git a/Presence/XMPP.hs b/Presence/XMPP.hs
index 6dbc64b0..2c01d456 100644
--- a/Presence/XMPP.hs
+++ b/Presence/XMPP.hs
@@ -610,8 +610,10 @@ handlePeer st src snk = do
 
 handlePeerPresence session stanza False = do
     -- Offline
+    liftIO . debugStr $ "PEER-OFFLINE: "++show stanza
     withJust (lookupAttrib "from" (tagAttrs stanza)) $ \jid -> do
     peer_jid <- liftIO $ parseAddressJID (textToByteString jid)
+    liftIO . debugStr $ "PEER-OFFLINE-JID: "++show peer_jid
     liftIO $ announcePresence session (Presence peer_jid Offline)
 handlePeerPresence session stanza True = do
     -- online (Available or Away)
@@ -632,6 +634,7 @@ handlePeerPresence session stanza True = do
         toStat "chat" = Available
 
     stat' <- parseChildren Available
+    liftIO . debugStr $ "announcing peer online: "++show (pjid,stat')
     liftIO $ announcePresence session (Presence pjid stat')
     log $ bshow (Presence pjid stat')
 
@@ -683,6 +686,8 @@ handlePresenceProbe session stanza = do
                 when (peer sub == discardPort (peerAddress session)) $ do
                 ps <- userStatus session user
                 -- todo: Consider making this a directed presence
+                forM_ ps $ \p ->  do
+                    debugStr ("PROBE-REPLY: "++show p)
                 mapM_ (sendPeerMessage session . OutBoundPresence) ps
     return ()