~singpolyma/network-protocol-xmpp

dbad367307c81788af752858ac5a08dd2d81807a — John Millikin 12 years ago ce476c6
When retrieving a stanza tree from a root, only check element children.
1 files changed, 1 insertions(+), 1 deletions(-)

M Network/Protocol/XMPP/Stanza.hs
M Network/Protocol/XMPP/Stanza.hs => Network/Protocol/XMPP/Stanza.hs +1 -1
@@ 201,7 201,7 @@ stanzaToTree' stanza name typeStr = element ("", name) attrs payloads where

treeToStanza :: T.Text -> XmlTree -> Maybe ReceivedStanza
treeToStanza ns root = do
	tree <- runMA A.getChildren root
	tree <- runMA (A.getChildren >>> A.isElem) root
	treeNS <- runMA A.getNamespaceUri tree
	if T.pack treeNS == ns then Just () else Nothing