git.iko.soy/text
on master help sign in
Remove an unnecessary test
9cea80cBryan O'Sullivan
Data/Text/Encoding/Utf16.hs+1−1
compare with master
unifiedsplit
@@ -33,7 +33,7 @@ chr2 (W16# a#) (W16# b#) = C# (chr# (upper# +# lower# +# 0x10000#))
33{-# INLINE chr2 #-}
33{-# INLINE chr2 #-}
34
34
35validate1 :: Word16 -> Bool
35validate1 :: Word16 -> Bool
36−validate1 x1 = (x1 >= 0 && x1 < 0xD800) || x1 > 0xDFFF
36+validate1 x1 = (x1 < 0xD800) || x1 > 0xDFFF
37{-# INLINE validate1 #-}
37{-# INLINE validate1 #-}
38
38
39validate2 :: Word16 -> Word16 -> Bool
39validate2 :: Word16 -> Word16 -> Bool