iteratee-parsec 0.0.2 → 0.0.3

raw patch · 2 files changed

+7/−9 lines, 2 filesdep ~ListLikedep ~iterateedep ~parsec

Dependency ranges changed: ListLike, iteratee, parsec, transformers

Files

• iteratee-parsec.cabal +5/−5
• src/Text/Parsec/Iteratee/LinkedList.hs +2/−4

@@ -1,5 +1,5 @@ Name:                     iteratee-parsec-Version:                  0.0.2+Version:                  0.0.3 Synopsis:                 Package allowing parsec parser initeratee Description:              Package providing instances of Stream in                           IterateeG monad.@@ -14,10 +14,10 @@  Library   Build-Depends:          base >= 3 && < 5,-                          iteratee,-                          ListLike,-                          parsec >= 3,-                          transformers+                          iteratee >= 0.3.5 && < 0.4,+                          ListLike >= 1.0 && < 2,+                          parsec >= 3 && < 3.2,+                          transformers >= 0.2.0.0 && < 0.3   Exposed-Modules:        Text.Parsec.Iteratee,                           Text.Parsec.Iteratee.Chunk,                           Text.Parsec.Iteratee.LinkedList

@@ -29,8 +29,7 @@ import Control.Concurrent.MVar import Control.Monad import Control.Monad.ST-import Control.Monad.Trans-import Data.Maybe+import Control.Monad.Trans.Class import Data.Monoid import Data.Iteratee import Data.Iteratee.Base.StreamChunk (StreamChunk)@@ -38,7 +37,6 @@ import qualified Data.ListLike as LL import Data.STRef import Text.Parsec-import Text.Parsec.Pos  -- | Class notifing a reference in monad. -- Probably should be in separate module.@@ -178,7 +176,7 @@            => ParsecT s u m a            -> ParsecT s u m (s, Either ParseError a) parsecSafe p = mkPT $ \s -> do-    r <- join (unConsume `liftM` (runParsecT p s))+    r <- unConsume =<< runParsecT p s     case r of       Error pe  -> let rp = Ok (stateInput s,  Left pe) s  (unknownError s)                   in return $! Empty $ return $! rp