From a66e50840bdc3c92e661257a4a0c5fec34aa25bc Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 11 May 2021 09:01:36 -0600
Subject: T.P.XML.Light - add Eq, Ord instances...

for Content, Element, Attr, CDataKind.
[API change]
---
 src/Text/Pandoc/XML/Light/Types.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/XML/Light/Types.hs b/src/Text/Pandoc/XML/Light/Types.hs
index 03fdc2e4d..ba602ac1f 100644
--- a/src/Text/Pandoc/XML/Light/Types.hs
+++ b/src/Text/Pandoc/XML/Light/Types.hs
@@ -53,7 +53,7 @@ type Line     = Integer
 data Content  = Elem Element
               | Text CData
               | CRef Text
-                deriving (Show, Typeable, Data)
+                deriving (Show, Typeable, Data, Ord, Eq)
 
 -- | XML elements
 data Element  = Element {
@@ -61,7 +61,7 @@ data Element  = Element {
                   elAttribs   :: [Attr],
                   elContent   :: [Content],
                   elLine      :: Maybe Line
-                } deriving (Show, Typeable, Data)
+                } deriving (Show, Typeable, Data, Ord, Eq)
 
 -- | XML attributes
 data Attr     = Attr {
@@ -74,13 +74,13 @@ data CData    = CData {
                   cdVerbatim  :: CDataKind,
                   cdData      :: Text,
                   cdLine      :: Maybe Line
-                } deriving (Show, Typeable, Data)
+                } deriving (Show, Typeable, Data, Ord, Eq)
 
 data CDataKind
  = CDataText      -- ^ Ordinary character data; pretty printer escapes &, < etc.
  | CDataVerbatim  -- ^ Unescaped character data; pretty printer embeds it in <![CDATA[..
  | CDataRaw       -- ^ As-is character data; pretty printer passes it along without any escaping or CDATA wrap-up.
-   deriving ( Eq, Show, Typeable, Data )
+   deriving ( Eq, Ord, Show, Typeable, Data )
 
 -- | XML qualified names
 data QName    = QName {
-- 
cgit v1.2.3