diff options
| -rw-r--r-- | xmppserver.hs | 6 |
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 | |||
| 129 | (do | 129 | (do |
| 130 | guard (hasElem "session" content) | 130 | guard (hasElem "session" content) |
| 131 | Just (iqresult host id Nothing)) | 131 | Just (iqresult host id Nothing)) |
| 132 | {- | ||
| 133 | - packet: Chunk "<iq type='get' id='purple5da6e3ed' to='localhost'><query xmlns='http://jabber.org/protocol/disco#items'/></iq>" Empty | ||
| 134 | - parsed-packet: Chunk "<iq type='get' id='purple5da6e3ed' to='localhost'><query xmlns='http://jabber.org/protocol/disco#items'/></iq>" Empty | ||
| 135 | - 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]) | ||
| 136 | - no respones | ||
| 137 | -} | ||
| 138 | 132 | ||
| 139 | "get" -> trace ("iq-get "++show (attrs,content)) $ do | 133 | "get" -> trace ("iq-get "++show (attrs,content)) $ do |
| 140 | xmlns <- fmap pack $ | 134 | xmlns <- fmap pack $ |