diff --git a/parsec.cabal b/parsec.cabal
--- a/parsec.cabal
+++ b/parsec.cabal
@@ -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
diff --git a/src/Text/Parsec/Char.hs b/src/Text/Parsec/Char.hs
--- a/src/Text/Parsec/Char.hs
+++ b/src/Text/Parsec/Char.hs
@@ -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' #-}
diff --git a/src/Text/Parsec/Prim.hs b/src/Text/Parsec/Prim.hs
--- a/src/Text/Parsec/Prim.hs
+++ b/src/Text/Parsec/Prim.hs
@@ -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))