diff --git a/src/Text/XML/Pipe.hs b/src/Text/XML/Pipe.hs
--- a/src/Text/XML/Pipe.hs
+++ b/src/Text/XML/Pipe.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE OverloadedStrings, TupleSections #-}
 
 module Text.XML.Pipe (
 	-- * Functions
@@ -9,7 +9,7 @@
 	-- * Types
 	XmlEvent(..), XmlNode(..),
 	-- ** Type Synonyms
-	XEQName, Xmlns, QName) where
+	XEQName, Xmlns, QName, nullQ) where
 
 import Control.Arrow
 import Control.Monad
@@ -72,3 +72,6 @@
 		'\'' -> "'" `BS.append` quote t
 		_ -> h `BSC.cons` quote t
 	| otherwise = ""
+
+nullQ :: BS.ByteString -> QName
+nullQ = (("", Nothing) ,)
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.9
+version:	0.0.0.10
 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.9
+    tag:	xml-pipe-0.0.0.10
 
 library
     hs-source-dirs:	src