~singpolyma/xml-types-haskell

260d2752c56f17c1b4e83711d60aca8a8e6a2c07 — John Millikin 9 years ago f10ac58 xml-types_0.3.1
Add ``Ord`` instances for all types.
2 files changed, 9 insertions(+), 9 deletions(-)

M lib/Data/XML/Types.hs
M xml-types.cabal
M lib/Data/XML/Types.hs => lib/Data/XML/Types.hs +7 -7
@@ 79,7 79,7 @@ data Document = Document
	, documentRoot :: Element
	, documentEpilogue :: [Miscellaneous]
	}
	deriving (Show, Eq)
	deriving (Show, Eq, Ord)

instance Typeable Document where
	typeOf = typeString "Document"


@@ 89,7 89,7 @@ data Prologue = Prologue
	, prologueDoctype :: Maybe Doctype
	, prologueAfter :: [Miscellaneous]
	}
	deriving (Show, Eq)
	deriving (Show, Eq, Ord)

instance Typeable Prologue where
	typeOf = typeString "Prologue"


@@ 106,7 106,7 @@ instance Typeable Instruction where
data Miscellaneous
	= MiscInstruction Instruction
	| MiscComment Text
	deriving (Show, Eq)
	deriving (Show, Eq, Ord)

instance Typeable Miscellaneous where
	typeOf = typeString "Miscellaneous"


@@ 116,7 116,7 @@ data Node
	| NodeInstruction Instruction
	| NodeContent Content
	| NodeComment Text
	deriving (Show, Eq)
	deriving (Show, Eq, Ord)

instance Typeable Node where
	typeOf = typeString "Node"


@@ 126,7 126,7 @@ data Element = Element
	, elementAttributes :: [(Name, [Content])]
	, elementNodes :: [Node]
	}
	deriving (Show, Eq)
	deriving (Show, Eq, Ord)

instance Typeable Element where
	typeOf = typeString "Element"


@@ 134,7 134,7 @@ instance Typeable Element where
data Content
	= ContentText Text
	| ContentEntity Text -- ^ For pass-through parsing
	deriving (Show, Eq)
	deriving (Show, Eq, Ord)

instance Typeable Content where
	typeOf = typeString "Content"


@@ 223,7 223,7 @@ data Event
	| EventContent Content
	| EventComment Text
	| EventCDATA Text
	deriving (Show, Eq)
	deriving (Show, Eq, Ord)

instance Typeable Event where
	typeOf = typeString "Event"

M xml-types.cabal => xml-types.cabal +2 -2
@@ 1,5 1,5 @@
name: xml-types
version: 0.3
version: 0.3.1
synopsis: Basic types for representing XML
license: MIT
license-file: license.txt


@@ 19,7 19,7 @@ source-repository head
source-repository this
  type: bazaar
  location: https://john-millikin.com/branches/xml-types/0.3/
  tag: xml-types_0.3
  tag: xml-types_0.3.1

library
  ghc-options: -Wall