From 83cb1cf021a6830e6d2c17783921c97b23ab2370 Mon Sep 17 00:00:00 2001 From: John Millikin Date: Tue, 16 Jun 2009 22:22:25 +0000 Subject: [PATCH] When building a tree from SAX events, include element attributes. --- Network/Protocol/XMPP/XMLBuilder.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Network/Protocol/XMPP/XMLBuilder.hs b/Network/Protocol/XMPP/XMLBuilder.hs index 701949b..4c048a3 100644 --- a/Network/Protocol/XMPP/XMLBuilder.hs +++ b/Network/Protocol/XMPP/XMLBuilder.hs @@ -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] -- 2.38.5