parsec 3.1.16.0 → 3.1.16.1

raw patch · 3 files changed

+6/−2 lines, 3 files

Files

parsec.cabal +1/−1
src/Text/Parsec/Char.hs +2/−0
src/Text/Parsec/Prim.hs +3/−1

parsec.cabal view

@@ -1,6 +1,6 @@ cabal-version:  1.12 name:           parsec-version:        3.1.16.0+version:        3.1.16.1  synopsis:       Monadic parser combinators description:    Parsec is designed from scratch as an industrial-strength parser

src/Text/Parsec/Char.hs view

@@ -184,6 +184,8 @@ -- -- >  carOrCdr    =   string' "car" -- >              <|> string' "cdr"+--+-- @since 3.1.16.0  string' :: (Stream s m Char) => String -> ParsecT s u m String {-# INLINABLE string' #-}

src/Text/Parsec/Prim.hs view

@@ -525,6 +525,8 @@                 | otherwise -> eerr $ errExpect x  -- | Like 'tokens', but doesn't consume matching prefix.+--+-- @since 3.1.16.0 tokens' :: (Stream s m t, Eq t)        => ([t] -> String)      -- Pretty print a list of tokens        -> (SourcePos -> [t] -> SourcePos)@@ -535,7 +537,7 @@     = ParsecT $ \s _ _ eok _ ->       eok [] s $ unknownError s tokens' showTokens nextposs tts@(tok:toks)-    = ParsecT $ \(State input pos u) cok cerr _eok eerr ->+    = ParsecT $ \(State input pos u) cok _cerr _eok eerr ->     let         errEof = (setErrorMessage (Expect (showTokens tts))                   (newErrorMessage (SysUnExpect "") pos))