removed debug noise on pings

1 files changed, 0 insertions, 11 deletions

diff --git a/Presence/XMPP.hs b/Presence/XMPP.hs
index 2917d833..01852f43 100644
--- a/Presence/XMPP.hs
+++ b/Presence/XMPP.hs
@@ -329,19 +329,8 @@ handleIQGet session cmdChan tag = do
             liftIO . atomically . writeTChan cmdChan . Send $ iq_service_unavailable host stanza_id Nothing req
     case tagName child of
         -- "{http://jabber.org/protocol/disco#items}query" -> liftIO $ putStrLn "iq-get-query-items"
-        {-
-            IN client:
-              <iq type="get" id="purple8f8224d6"
-                ><ping xmlns="urn:xmpp:ping"/></iq>
-
-
-            OUT client:
-            <iq from='blackbird' id='purple8f8224d6' type='result'/>
-        -}
         "{urn:xmpp:ping}ping" -> liftIO $ do
-            putStrLn ("iq-ping: "++show (stanza_id,child))
             let mjid = lookupAttrib "from" (tagAttrs tag)
-            L.putStrLn $ "PING! from=" <++> bshow mjid
             let pong = [ EventBeginElement "{jabber:client}iq" 
                          $ (case mjid of
                              Just jid -> (("to",[ContentText jid]):)