@@ -235,7 +235,8 @@ isDigit c = c >= '0' && c <= '9'
236-- | A fast digit predicate.
236-- | A fast digit predicate.
237isDigit_w8 :: Word8 -> Bool
237isDigit_w8 :: Word8 -> Bool
238−isDigit_w8 w = w >= 48 && w <= 57
238+isDigit_w8 w | w - 48 <= 9 = True
239{-# INLINE isDigit_w8 #-}
240{-# INLINE isDigit_w8 #-}
241-- | Match any character.
242-- | Match any character.
@@ -272,7 +273,9 @@ isSpace c = (c == ' ') || ('\t' <= c && c <= '\r')
273-- | Fast 'Word8' predicate for matching ASCII space characters.
274-- | Fast 'Word8' predicate for matching ASCII space characters.
274isSpace_w8 :: Word8 -> Bool
275isSpace_w8 :: Word8 -> Bool
275−isSpace_w8 w = (w == 32) || (9 <= w && w <= 13)
276+isSpace_w8 w | w == 32 = True
276{-# INLINE isSpace_w8 #-}
279{-# INLINE isSpace_w8 #-}