2 files changed, 12 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)
diff --git a/Presence/Stanza/Types.hs b/Presence/Stanza/Types.hs
index 6b402f4d..cbb156a0 100644
--- a/Presence/Stanza/Types.hs
+++ b/Presence/Stanza/Types.hs
@@ -34,6 +34,10 @@ data StanzaType
     | Pong
     | RequestResource (Maybe Text) (Maybe Text) -- ^ Client's name for this host followed by client's requested resource id.
     | SetResource
+    | RequestItems
+    | Items
+    | RequestInfo
+    | Info
     | SessionRequest
     | UnrecognizedQuery Name
     | RequestRoster