iteratee-parsec 0.0.1 → 0.0.2

raw patch · 2 files changed

+3/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

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

@@ -1,5 +1,5 @@ Name:                     iteratee-parsec-Version:                  0.0.1+Version:                  0.0.2 Synopsis:                 Package allowing parsec parser initeratee Description:              Package providing instances of Stream in                           IterateeG monad.

@@ -177,8 +177,8 @@ parsecSafe :: Monad m            => ParsecT s u m a            -> ParsecT s u m (s, Either ParseError a)-parsecSafe (ParsecT p) = ParsecT $ \s -> do-    r <- join (unConsume `liftM` p s)+parsecSafe p = mkPT $ \s -> do+    r <- join (unConsume `liftM` (runParsecT p s))     case r of       Error pe  -> let rp = Ok (stateInput s,  Left pe) s  (unknownError s)                   in return $! Empty $ return $! rp