git.iko.soy/text
on master help sign in
Remove a redundant check
10ca053Bryan O'Sullivan
Data/Text/Encoding/Utf8.hs+1−1
compare with master
unifiedsplit
@@ -119,7 +119,7 @@ chr4 (W8# x1#) (W8# x2#) (W8# x3#) (W8# x4#) =
119{-# INLINE chr4 #-}
119{-# INLINE chr4 #-}
120
120
121validate1 :: Word8 -> Bool
121validate1 :: Word8 -> Bool
122−validate1 x1 = between x1 0x00 0x7F
122+validate1 x1 = x1 <= 0x7F
123{-# INLINE validate1 #-}
123{-# INLINE validate1 #-}
124
124
125validate2 :: Word8 -> Word8 -> Bool
125validate2 :: Word8 -> Word8 -> Bool