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
@@ -26,7 +26,7 @@
 	[(BS.ByteString, BS.ByteString)] -> (BS.ByteString, BS.ByteString) -> QName
 toQName nss (q, n) = ((q, lookup q nss), n)
 
-xmlBegin :: Monad m => Pipe XmlEvent XmlNode m [(BS.ByteString, BS.ByteString)]
+xmlBegin :: Monad m => Pipe XmlEvent XmlNode m [Xmlns]
 xmlBegin = do
 	mxe <- await
 	case mxe of
@@ -38,7 +38,7 @@
 		_ -> xmlBegin
 
 xmlNodeUntil :: Monad m => (XmlNode -> Bool) ->
-	[(BS.ByteString, BS.ByteString)] -> Pipe XmlEvent XmlNode m ()
+	[Xmlns] -> Pipe XmlEvent XmlNode m ()
 xmlNodeUntil p nss = do
 	mnd <- xmlNd nss
 	case mnd of
@@ -48,8 +48,7 @@
 		Left (XEXmlDecl _) -> return ()
 		_ -> return ()
 
-xmlNode :: Monad m =>
-	[(BS.ByteString, BS.ByteString)] -> Pipe XmlEvent XmlNode m Bool
+xmlNode :: Monad m => [Xmlns] -> Pipe XmlEvent XmlNode m Bool
 xmlNode nss = do
 	mnd <- xmlNd nss
 	case mnd of
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.1
+version:	0.0.0.2
 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.1
+    tag:	xml-pipe-0.0.0.2
 
 library
     hs-source-dirs:	src