attoparsec-conduit 0.5.0.3 → 1.0.0
raw patch · 2 files changed
+7/−7 lines, 2 filesdep ~conduitPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: conduit
API changes (from Hackage documentation)
- Data.Conduit.Attoparsec: conduitParser :: (AttoparsecInput a, MonadThrow m) => Parser a b -> GLInfConduit a m (PositionRange, b)
+ Data.Conduit.Attoparsec: conduitParser :: (AttoparsecInput a, MonadThrow m) => Parser a b -> Conduit a m (PositionRange, b)
- Data.Conduit.Attoparsec: sinkParser :: (AttoparsecInput a, MonadThrow m) => Parser a b -> GLSink a m b
+ Data.Conduit.Attoparsec: sinkParser :: (AttoparsecInput a, MonadThrow m) => Parser a b -> Consumer a m b
Files
Data/Conduit/Attoparsec.hs view
@@ -34,7 +34,7 @@ import qualified Data.Attoparsec.ByteString import qualified Data.Attoparsec.Text import qualified Data.Attoparsec.Types as A-import Data.Conduit hiding (Pipe, Sink, Conduit, Source)+import Data.Conduit -- | The context and message from a 'A.Fail' value. data ParseError = ParseError@@ -113,19 +113,19 @@ -- If parsing fails, a 'ParseError' will be thrown with 'monadThrow'. -- -- Since 0.5.0-sinkParser :: (AttoparsecInput a, MonadThrow m) => A.Parser a b -> GLSink a m b+sinkParser :: (AttoparsecInput a, MonadThrow m) => A.Parser a b -> Consumer a m b sinkParser = fmap snd . sinkParserPos (Position 1 1) -- | Consume a stream of parsed tokens, returning both the token and the -- position it appears at. -- -- Since 0.5.0-conduitParser :: (AttoparsecInput a, MonadThrow m) => A.Parser a b -> GLInfConduit a m (PositionRange, b)+conduitParser :: (AttoparsecInput a, MonadThrow m) => A.Parser a b -> Conduit a m (PositionRange, b) conduitParser parser = conduit $ Position 1 0 where conduit pos =- awaitE >>= either return go+ await >>= maybe (return ()) go where go x = do leftover x@@ -133,7 +133,7 @@ yield (PositionRange pos pos', res) conduit pos' -sinkParserPos :: (AttoparsecInput a, MonadThrow m) => Position -> A.Parser a b -> GLSink a m (Position, b)+sinkParserPos :: (AttoparsecInput a, MonadThrow m) => Position -> A.Parser a b -> Consumer a m (Position, b) sinkParserPos pos0 = sink empty pos0 . parseA where
attoparsec-conduit.cabal view
@@ -1,5 +1,5 @@ Name: attoparsec-conduit-Version: 0.5.0.3+Version: 1.0.0 Synopsis: Consume attoparsec parsers via conduit. Description: Consume attoparsec parsers via conduit. License: BSD3@@ -19,7 +19,7 @@ , bytestring >= 0.9 , attoparsec >= 0.10 , text >= 0.11- , conduit >= 0.5 && < 0.6+ , conduit >= 1.0 && < 1.1 ghc-options: -Wall test-suite test