@@ -53,7 +53,7 @@ type Line = Integer
5353data Content = Elem Element
5454 | Text CData
5555 | CRef Text
56− deriving (Show, Typeable, Data)
56+ deriving (Show, Typeable, Data, Ord, Eq)
5757
5858-- | XML elements
5959data Element = Element {
@@ -61,7 +61,7 @@ data Element = Element {
6161 elAttribs :: [Attr],
6262 elContent :: [Content],
6363 elLine :: Maybe Line
64− } deriving (Show, Typeable, Data)
64+ } deriving (Show, Typeable, Data, Ord, Eq)
6565
6666-- | XML attributes
6767data Attr = Attr {
@@ -74,13 +74,13 @@ data CData = CData {
7474 cdVerbatim :: CDataKind,
7575 cdData :: Text,
7676 cdLine :: Maybe Line
77− } deriving (Show, Typeable, Data)
77+ } deriving (Show, Typeable, Data, Ord, Eq)
7878
7979data CDataKind
8080 = CDataText -- ^ Ordinary character data; pretty printer escapes &, < etc.
8181 | CDataVerbatim -- ^ Unescaped character data; pretty printer embeds it in <![CDATA[..
8282 | CDataRaw -- ^ As-is character data; pretty printer passes it along without any escaping or CDATA wrap-up.
83− deriving ( Eq, Show, Typeable, Data )
83+ deriving ( Eq, Ord, Show, Typeable, Data )
8484
8585-- | XML qualified names
8686data QName = QName {