Respond to XMPP discovery queries.

1 files changed, 8 insertions, 0 deletions

diff --git a/Presence/Stanza/Parse.hs b/Presence/Stanza/Parse.hs
index e2a9efdd..af95530f 100644
--- a/Presence/Stanza/Parse.hs
+++ b/Presence/Stanza/Parse.hs
@@ -46,6 +46,10 @@ grokStanzaIQGet stanza = do
     case tagName tag of
         "{urn:xmpp:ping}ping"     -> return Ping
         "{jabber:iq:roster}query" -> return RequestRoster
+        "{http://jabber.org/protocol/disco#items}query"
+                                  -> return RequestItems
+        "{http://jabber.org/protocol/disco#info}query"
+                                  -> return RequestInfo
         name                      -> return $ UnrecognizedQuery name
 
 grokStanzaIQResult :: XML.Event -> NestingXML o IO (Maybe StanzaType)
@@ -55,6 +59,10 @@ grokStanzaIQResult stanza = do
     case tagName tag of
         "{jabber:iq:version}query" | nameNamespace (tagName stanza)==Just "jabber:client"
             -> parseClientVersion
+        "{http://jabber.org/protocol/disco#items}query"
+            -> return $ Just Items
+        "{http://jabber.org/protocol/disco#info}query"
+            -> return $ Just Info
         _ -> return Nothing
 
 grokStanzaIQSet :: XML.Event -> NestingXML o IO (Maybe StanzaType)