@@ -239,8 +239,7 @@ isDigit c = c >= '0' && c <= '9'
239239
240240-- | A fast digit predicate.
241241isDigit_w8 :: Word8 -> Bool
242−isDigit_w8 w | w - 48 <= 9 = True
243− | otherwise = False
242+isDigit_w8 w = w - 48 <= 9
244243{-# INLINE isDigit_w8 #-}
245244
246245-- | Match any character.
@@ -277,9 +276,7 @@ isSpace c = (c == ' ') || ('\t' <= c && c <= '\r')
277276
278277-- | Fast 'Word8' predicate for matching ASCII space characters.
279278isSpace_w8 :: Word8 -> Bool
280−isSpace_w8 w | w == 32 = True
281− | w - 9 <= 4 = True
282− | otherwise = False
279+isSpace_w8 w = w == 32 || w - 9 <= 4
283280{-# INLINE isSpace_w8 #-}
284281
285282