xml-pipe 0.0.0.1 → 0.0.0.2

raw patch · 2 files changed

+5/−6 lines, 2 files

Files

• src/Text/XML/XmlCreate.hs +3/−4
• xml-pipe.cabal +2/−2

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

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