removed comment

1 files changed, 0 insertions, 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 $