Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

T.P.XML.Light - add Eq, Ord instances...

Browse source 
for Content, Element, Attr, CDataKind.
[API change]
This commit is contained in:
John MacFarlane 2021-05-11 09:01:36 -06:00
parent 2bd5d0cafb
commit a66e50840b
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Text/Pandoc/XML/Light/Types.hs
View file

@ -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 {