Remove a redundant check
This improves FileRead performance by 7.5%! Yikes!
--HG--
extra : convert_revision : 2cca14c107298a9b68472bb4525d168727abb84f
commit10ca05382baff5474d2e4c07fde2060edf2a89fe
authorBryan O'Sullivan <bos@serpentine.com>
dateSun 15 Aug 2010, 03:12 (16 years ago)
parente99387c
Data/Text/Encoding/Utf8.hs+1−1
@@ -119,7 +119,7 @@ chr4 (W8# x1#) (W8# x2#) (W8# x3#) (W8# x4#) =
119119{-# INLINE chr4 #-}
120120
121121validate1 :: Word8 -> Bool
122−validate1 x1 = between x1 0x00 0x7F
122+validate1 x1 = x1 <= 0x7F
123123{-# INLINE validate1 #-}
124124
125125validate2 :: Word8 -> Word8 -> Bool