git.iko.soy/typeable/attoparsec
on master help sign in
Fix bitbucket issue #7
278b0a1Bryan O'Sullivan
Data/Attoparsec/ByteString/Char8.hs+1−1
compare with master
unifiedsplit
@@ -347,7 +347,7 @@ hexadecimal = B8.foldl' step 0 `fmap` I.takeWhile1 isHexDigit
347 where
347 where
348 isHexDigit w = (w >= 48 && w <= 57) ||
348 isHexDigit w = (w >= 48 && w <= 57) ||
349 (w >= 97 && w <= 102) ||
349 (w >= 97 && w <= 102) ||
350− (w >= 65 && w <= 90)
350+ (w >= 65 && w <= 70)
351 step a w | w >= 48 && w <= 57 = (a `shiftL` 4) .|. fromIntegral (w - 48)
351 step a w | w >= 48 && w <= 57 = (a `shiftL` 4) .|. fromIntegral (w - 48)
352 | w >= 97 = (a `shiftL` 4) .|. fromIntegral (w - 87)
352 | w >= 97 = (a `shiftL` 4) .|. fromIntegral (w - 87)
353 | otherwise = (a `shiftL` 4) .|. fromIntegral (w - 55)
353 | otherwise = (a `shiftL` 4) .|. fromIntegral (w - 55)