diff --git a/attoparsec-parsec.cabal b/attoparsec-parsec.cabal
--- a/attoparsec-parsec.cabal
+++ b/attoparsec-parsec.cabal
@@ -1,5 +1,5 @@
 name:             attoparsec-parsec
-version:          0.1.1
+version:          0.1.2
 license:          MIT
 license-file:     LICENSE
 copyright:        (c) 2011, 2012 Simon Hengel
diff --git a/src/Data/Attoparsec/Text/Parsec.hs b/src/Data/Attoparsec/Text/Parsec.hs
--- a/src/Data/Attoparsec/Text/Parsec.hs
+++ b/src/Data/Attoparsec/Text/Parsec.hs
@@ -69,6 +69,7 @@
 , satisfy
 -- , satisfyWith
 -- , skip
+, peekChar
 
 -- ** Special character parsers
 , digit
@@ -171,6 +172,9 @@
 -- >    where isDigit c = c >= '0' && c <= '9'
 satisfy :: (Char -> Bool) -> Parser Char
 satisfy = Parsec.satisfy
+
+peekChar :: Parser (Maybe Char)
+peekChar = Just <$> try (Parsec.lookAhead anyChar) <|> return Nothing
 
 -- | Parse a single digit, as recognised by 'isDigit'.
 digit :: Parser Char