From 3f3cb58e3150d28a00c18324cecc44c6fc3a4e99 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Sat, 15 Jun 2013 20:51:53 -0400
Subject: removed comment

---
 xmppserver.hs | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/xmppserver.hs b/xmppserver.hs
index 26e9c12e..4277d625 100644
--- a/xmppserver.hs
+++ b/xmppserver.hs
@@ -129,12 +129,6 @@ iqresponse host (Elem _ attrs content) = do
               (do
                 guard (hasElem "session" content)
                 Just (iqresult host id Nothing))
-{-
- - packet: Chunk "<iq type='get' id='purple5da6e3ed' to='localhost'><query xmlns='http://jabber.org/protocol/disco#items'/></iq>" Empty
- - parsed-packet: Chunk "<iq type='get' id='purple5da6e3ed' to='localhost'><query xmlns='http://jabber.org/protocol/disco#items'/></iq>" Empty
- - iq-get ([(N "type",get),(N "id",purple5da6e3ed),(N "to",localhost)],[CElem (Elem (N "query") [(N "xmlns",http://jabber.org/protocol/disco#items)] []) file stream  at line 1 col 51])
- - no respones
- -}
                 
       "get" -> trace ("iq-get "++show (attrs,content)) $ do
         xmlns <- fmap pack $
-- 
cgit v1.2.3