@@ -64,7 +64,10 @@ data Node = Node BS.ByteString (ForeignPtr CDocument) (Ptr CNode)
6464
6565-- | An XML attribute, comprising of a name and a value. As an example,
6666-- @hello=\"world\"@ would produce @Attribute \"hello\" \"world\"@.
67−data Attribute = Attribute BS.ByteString BS.ByteString deriving (Show, Eq, Ord)
67+data Attribute = Attribute
68+ {attributeName :: BS.ByteString
69+ ,attributeVaule :: BS.ByteString
70+ } deriving (Show, Eq, Ord)
6871
6972instance Show Node where
7073 show d = "Node " ++ show (BS.unpack $ outer d)