parsergen 0.2.0.1 → 0.2.0.2

raw patch · 2 files changed

+4/−4 lines, 2 files

Files

• parsergen.cabal +1/−1
• src/ParserGen/Common.hs +3/−3

@@ -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:

@@ -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