git.iko.soy/text
on master help sign in
Remove another unnecessary test
6062679Bryan 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 < 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
Data/Text/Encoding/Utf32.hs+1−1
@@ -19,5 +19,5 @@ module Data.Text.Encoding.Utf32
19import Data.Word (Word32)
19import Data.Word (Word32)
20
20
21validate :: Word32 -> Bool
21validate :: Word32 -> Bool
22−validate x1 = (x1 >= 0x0 && x1 < 0xD800) || (x1 > 0xDFFF && x1 <= 0x10FFFF)
22+validate x1 = x1 < 0xD800 || (x1 > 0xDFFF && x1 <= 0x10FFFF)
23{-# INLINE validate #-}
23{-# INLINE validate #-}