From dd9dad21a830e932ab873510c41ce1a098bc78b8 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Mon, 5 Nov 2018 05:54:00 -0500 Subject: Respond to XMPP discovery queries. --- Presence/Stanza/Parse.hs | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'Presence/Stanza/Parse.hs') 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) -- cgit v1.2.3