diff --git a/src/Text/XML/XmlEvent.hs b/src/Text/XML/XmlEvent.hs --- a/src/Text/XML/XmlEvent.hs +++ b/src/Text/XML/XmlEvent.hs @@ -16,9 +16,6 @@ notEmpty (XECharData cd) = not $ BSC.all isSpace cd notEmpty _ = True -convert :: Monad m => (a -> b) -> Pipe a b m () -convert f = await >>= maybe (return ()) (\x -> yield (f x) >> convert f) - filterP :: Monad m => (a -> Bool) -> Pipe a a m () filterP p = await >>= maybe (return ()) (\x -> when (p x) (yield x) >> filterP p) 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.8 +version: 0.0.0.9 stability: Experimental author: Yoshikuni Jujo maintainer: Yoshikuni Jujo @@ -110,7 +110,7 @@ source-repository this type: git location: git://github.com/YoshikuniJujo/xml-pipe.git - tag: xml-pipe-0.0.0.8 + tag: xml-pipe-0.0.0.9 library hs-source-dirs: src @@ -118,7 +118,7 @@ other-modules: Text.XML.XmlEvent, Text.XML.Lexer, Text.XML.Papillon, Text.XML.XmlCreate build-depends: - base == 4.*, bytestring == 0.10.*, simple-pipe == 0.0.0.*, + base == 4.*, bytestring == 0.10.*, simple-pipe >= 0.0.0.14 && < 0.2.0.0, papillon == 0.1.* ghc-options: -Wall extensions: DoAndIfThenElse, PatternGuards