From 5cc1cc9a3d4a56f32706bbc24f6c79896e8abe65 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Sat, 5 Dec 2015 09:17:39 -0500 Subject: [PATCH] We all support MUC --- Main.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Main.hs b/Main.hs index 7222834..1fd4d6c 100644 --- a/Main.hs +++ b/Main.hs @@ -338,6 +338,9 @@ componentStanza _ _ toComponent _ (ReceivedIQ (IQ { iqType = IQGet, iqFrom = Jus iqID = id, iqPayload = Just $ Element (fromString "{http://jabber.org/protocol/disco#info}query") [] [ + NodeElement $ Element (fromString "{http://jabber.org/protocol/disco#info}feature") [ + (fromString "{http://jabber.org/protocol/disco#info}var", [ContentText $ fromString "http://jabber.org/protocol/muc"]) + ] [], NodeElement $ Element (fromString "{http://jabber.org/protocol/disco#info}feature") [ (fromString "{http://jabber.org/protocol/disco#info}var", [ContentText $ fromString "jabber:x:conference"]) ] [] -- 2.38.4