~singpolyma/network-protocol-xmpp: When building a tree from SAX events, include element attributes.

83cb1cf021a6830e6d2c17783921c97b23ab2370 — John Millikin 14 years ago aaa9446

When building a tree from SAX events, include element attributes.

patch browse .tar.gz

1 files changed, 1 insertions(+), 1 deletions(-)

M Network/Protocol/XMPP/XMLBuilder.hs

M Network/Protocol/XMPP/XMLBuilder.hs => Network/Protocol/XMPP/XMLBuilder.hs +1 -1

@@ 56,4 56,4 @@ blockToTree (begin:rest) = let end = (last rest) in case (begin, end) of
 	fff -> error ("Got unexpected: " ++ (show fff))
 
 convertAttr :: XML.Attribute -> XmlTree
-convertAttr (XML.Attribute qname value) = XN.NTree (XN.mkAttrNode qname) []
+convertAttr (XML.Attribute qname value) = XN.NTree (XN.mkAttrNode qname) [XN.mkText value]