~singpolyma/cheogram

5cc1cc9a3d4a56f32706bbc24f6c79896e8abe65 — Stephen Paul Weber 8 years ago dbd872c
We all support MUC
1 files changed, 3 insertions(+), 0 deletions(-)

M Main.hs
M Main.hs => Main.hs +3 -0
@@ 339,6 339,9 @@ componentStanza _ _ toComponent _ (ReceivedIQ (IQ { iqType = IQGet, iqFrom = Jus
			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"])
					] []
				]