git.iko.soy/text
on master help sign in
Remove another unnecessary test

--HG-- extra : convert_revision : b56fec916dde1cfa6ee96f778c4421d9c616adfb

commit6062679d1a47335d479294cfe3680bd269e7dce2 authorBryan O'Sullivan <bos@serpentine.com> dateSun 15 Aug 2010, 20:08 (16 years ago) parent9cea80c
2 files changed+2−2
compare with master
unifiedsplit
Data/Text/Encoding/Utf16.hs+1−1 Data/Text/Encoding/Utf32.hs+1−1
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 < 0xD800) || x1 > 0xDFFF
36+validate1 x1 = x1 < 0xD800 || x1 > 0xDFFF
3737{-# INLINE validate1 #-}
3838
3939validate2 :: Word16 -> Word16 -> Bool
Data/Text/Encoding/Utf32.hs+1−1
@@ -19,5 +19,5 @@ module Data.Text.Encoding.Utf32
1919import Data.Word (Word32)
2020
2121validate :: Word32 -> Bool
22−validate x1 = (x1 >= 0x0 && x1 < 0xD800) || (x1 > 0xDFFF && x1 <= 0x10FFFF)
22+validate x1 = x1 < 0xD800 || (x1 > 0xDFFF && x1 <= 0x10FFFF)
2323{-# INLINE validate #-}