Remove an unnecessary test
--HG--
extra : convert_revision : 781a72151e057d38602041f43f669b2a8423a265
commit9cea80c1fe9ecca435acbd9721578da34402cdd7
authorBryan O'Sullivan <bos@serpentine.com>
dateSun 15 Aug 2010, 20:08 (16 years ago)
parent848f26f
Data/Text/Encoding/Utf16.hs+1−1
@@ -33,7 +33,7 @@ chr2 (W16# a#) (W16# b#) = C# (chr# (upper# +# lower# +# 0x10000#))
3333{-# INLINE chr2 #-}
3434
3535validate1 :: Word16 -> Bool
36−validate1 x1 = (x1 >= 0 && x1 < 0xD800) || x1 > 0xDFFF
36+validate1 x1 = (x1 < 0xD800) || x1 > 0xDFFF
3737{-# INLINE validate1 #-}
3838
3939validate2 :: Word16 -> Word16 -> Bool