~singpolyma/cheogram

1a93142ca54068614cb469274bad6198eef8f1d2 — Stephen Paul Weber 1 year, 6 months ago 5f50012
Sort discoVars

Needed at least for caps hash
1 files changed, 1 insertions(+), 0 deletions(-)

M Util.hs
M Util.hs => Util.hs +1 -0
@@ 157,6 157,7 @@ discoCapsIdentities query =

discoVars :: XML.Element -> [Text]
discoVars query =
	sort $
	mapMaybe (XML.attributeText (s"var")) $
	XML.isNamed (s"{http://jabber.org/protocol/disco#info}feature") =<<
		XML.elementChildren query