Commits

Bryan O'Sullivan committed 495c8a0

Remove an unnecessary test

Comments (0)

Files changed (1)

Data/Text/Encoding/Utf16.hs

 {-# INLINE chr2 #-}
 
 validate1    :: Word16 -> Bool
-validate1 x1 = (x1 >= 0 && x1 < 0xD800) || x1 > 0xDFFF
+validate1 x1 = (x1 < 0xD800) || x1 > 0xDFFF
 {-# INLINE validate1 #-}
 
 validate2       ::  Word16 -> Word16 -> Bool