diff --git a/hw-string-parse.cabal b/hw-string-parse.cabal
--- a/hw-string-parse.cabal
+++ b/hw-string-parse.cabal
@@ -1,5 +1,5 @@
 name:                   hw-string-parse
-version:                0.0.0.1
+version:                0.0.0.2
 synopsis:               Conduits for tokenizing streams.
 description:            Please see README.md
 homepage:               http://github.com/haskell-works/hw-string-parse#readme
diff --git a/src/HaskellWorks/Data/String/Parse.hs b/src/HaskellWorks/Data/String/Parse.hs
--- a/src/HaskellWorks/Data/String/Parse.hs
+++ b/src/HaskellWorks/Data/String/Parse.hs
@@ -56,4 +56,6 @@
     res    -> res
 
 char :: Char -> Parser Char
-char = return
+char c = do
+  d <- item
+  if c == d then return c else failure