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