diff --git a/src/Text/XML/XmlCreate.hs b/src/Text/XML/XmlCreate.hs
--- a/src/Text/XML/XmlCreate.hs
+++ b/src/Text/XML/XmlCreate.hs
@@ -17,10 +17,10 @@
 data XmlNode
 	= XmlDecl (Int, Int)
 	| XmlStart QName [Xmlns] [(QName, BS.ByteString)]
-	| XmlEnd QName
-	| XmlNode QName [Xmlns] [(QName, BS.ByteString)] [XmlNode]
 	| XmlCharData BS.ByteString
-	deriving (Eq, Show)
+	| XmlNode QName [Xmlns] [(QName, BS.ByteString)] [XmlNode]
+	| XmlEnd QName
+	deriving (Eq, Ord, Show, Read)
 
 toQName ::
 	[(BS.ByteString, BS.ByteString)] -> (BS.ByteString, BS.ByteString) -> QName
diff --git a/xml-pipe.cabal b/xml-pipe.cabal
--- a/xml-pipe.cabal
+++ b/xml-pipe.cabal
@@ -2,7 +2,7 @@
 cabal-version:	>= 1.8
 
 name:		xml-pipe
-version:	0.0.0.7
+version:	0.0.0.8
 stability:	Experimental
 author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp>
 maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>
@@ -110,7 +110,7 @@
 source-repository	this
     type:	git
     location:	git://github.com/YoshikuniJujo/xml-pipe.git
-    tag:	xml-pipe-0.0.0.7
+    tag:	xml-pipe-0.0.0.8
 
 library
     hs-source-dirs:	src