From d3f56faa47acc1494f9b0173b0e30068de85ca78 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Mon, 1 Jul 2013 00:52:38 -0400
Subject: removed debug noise on pings

---
 Presence/XMPP.hs | 11 -----------
 1 file changed, 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]):)
-- 
cgit v1.2.3