diff --git a/parsergen.cabal b/parsergen.cabal
--- a/parsergen.cabal
+++ b/parsergen.cabal
@@ -1,5 +1,5 @@
 Name:     parsergen
-Version:  0.2.0.1
+Version:  0.2.0.2
 Synopsis: TH parser generator for splitting bytestring into fixed-width fields
 
 Description:
diff --git a/src/ParserGen/Common.hs b/src/ParserGen/Common.hs
--- a/src/ParserGen/Common.hs
+++ b/src/ParserGen/Common.hs
@@ -38,7 +38,7 @@
             | otherwise =
                 let x = fromIntegral (B.unsafeIndex bs i)
                 in if x < ord '0' || x > ord '9'
-                    then fail $ "not an Int: " ++ show bs
+                    then fail $ "Not an Int: " ++ show bs
                     else loop (acc * 10 - ord '0' + x) (i + 1)
     {-# INLINE go #-}
 {-# INLINE unsafeDecimalX #-}
@@ -63,7 +63,7 @@
             next <- go bs (VarE acc) (i + 1)
 
             body <- [| if $(varE x) < ord '0' || $(varE x) > ord '9'
-                        then fail $ "Not an Int " ++ show $(varE bs)
+                        then fail $ "Not an Int: " ++ show $(varE bs)
                         else $(return next) |]
 
             return $ LetE
@@ -114,7 +114,7 @@
   where
     go bs = loop 0 0
       where
-        fail' = fail $ "Invalid alphanum: " ++ show bs
+        fail' = fail $ "Invalid AlphaNum: " ++ show bs
         -- We assume some things about the ascii layout, and get better
         -- branching that way...
         loop !acc !i