~singpolyma/cheogram

a3c4e8001a6449db9c3f55768b9324d039e70c25 — Stephen Paul Weber 14 days ago 1cee78f
Put cheogram provided commands last
1 files changed, 2 insertions(+), 2 deletions(-)

M Adhoc.hs
M Adhoc.hs => Adhoc.hs +2 -2
@@ 56,13 56,13 @@ commandList componentJid qid from to extras =
		iqID = qid,
		iqPayload = Just $ Element (s"{http://jabber.org/protocol/disco#items}query")
			[(s"{http://jabber.org/protocol/disco#items}node", [ContentText $ s"http://jabber.org/protocol/commands"])]
			([
			(extraItems ++ [
				NodeElement $ Element (s"{http://jabber.org/protocol/disco#items}item") [
						(s"jid", [ContentText $ formatJID componentJid ++ s"/CHEOGRAM%" ++ ConfigureDirectMessageRoute.nodeName]),
						(s"node", [ContentText $ ConfigureDirectMessageRoute.nodeName]),
						(s"name", [ContentText $ s"Register with backend"])
				] []
			] ++ extraItems)
			])
	}
	where
	extraItems = map (\el ->