From 1a93142ca54068614cb469274bad6198eef8f1d2 Mon Sep 17 00:00:00 2001
From: Stephen Paul Weber <singpolyma@singpolyma.net>
Date: Fri, 4 Dec 2020 20:02:47 -0500
Subject: [PATCH] Sort discoVars

Needed at least for caps hash
---
 Util.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Util.hs b/Util.hs
index a50999a..22ad9f5 100644
--- a/Util.hs
+++ b/Util.hs
@@ -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
-- 
2.45.2