Ping debug prints

1 files changed, 3 insertions, 0 deletions

diff --git a/Presence/XMPP.hs b/Presence/XMPP.hs
index be84e221..853b015a 100644
--- a/Presence/XMPP.hs
+++ b/Presence/XMPP.hs
@@ -1146,6 +1146,8 @@ toPeer sock cache chan fail = do
 
     sockref <- liftIO $ atomically newEmptyTMVar
     let bump fromsock = do
+            remote <- getPeerName sock
+            debugL $ "PING BUMP" <++> showPeer (RemotePeer remote)
             timer <- atomically $ do
                         putTMVar sockref fromsock
                         (timer,v) <-  readTVar pingref
@@ -1167,6 +1169,7 @@ toPeer sock cache chan fail = do
                     0 -> do
                             ping <- liftIO makePing
                             yield ping 
+                            prettyPrint ">P: " ping
                             loop
                     _ -> do
                             remote <- liftIO $ getPeerName sock