Commits

Bryan O'Sullivan committed 3033c0a

Fix bitbucket issue #7

Comments (0)

Files changed (1)

Data/Attoparsec/ByteString/Char8.hs

   where
     isHexDigit w = (w >= 48 && w <= 57) ||
                    (w >= 97 && w <= 102) ||
-                   (w >= 65 && w <= 90)
+                   (w >= 65 && w <= 70)
     step a w | w >= 48 && w <= 57  = (a `shiftL` 4) .|. fromIntegral (w - 48)
              | w >= 97             = (a `shiftL` 4) .|. fromIntegral (w - 87)
              | otherwise           = (a `shiftL` 4) .|. fromIntegral (w - 55)