@@ -239,7 +239,8 @@ isDigit c = c >= '0' && c <= '9'
240-- | A fast digit predicate.
240-- | A fast digit predicate.
241isDigit_w8 :: Word8 -> Bool
241isDigit_w8 :: Word8 -> Bool
242−isDigit_w8 w = w >= 48 && w <= 57
242+isDigit_w8 w | w - 48 <= 9 = True
243{-# INLINE isDigit_w8 #-}
244{-# INLINE isDigit_w8 #-}
245-- | Match any character.
246-- | Match any character.
@@ -276,7 +277,9 @@ isSpace c = (c == ' ') || ('\t' <= c && c <= '\r')
277-- | Fast 'Word8' predicate for matching ASCII space characters.
278-- | Fast 'Word8' predicate for matching ASCII space characters.
278isSpace_w8 :: Word8 -> Bool
279isSpace_w8 :: Word8 -> Bool
279−isSpace_w8 w = (w == 32) || (9 <= w && w <= 13)
280+isSpace_w8 w | w == 32 = True
280{-# INLINE isSpace_w8 #-}
283{-# INLINE isSpace_w8 #-}