Fix a bug
--HG--
extra : convert_revision : e136d356af9914ca0a512303069e465e531c4f21
commitb4329afcbe08e8c9cc91934debf4b9c6cf4c19f6
authorBryan O'Sullivan <bos@serpentine.com>
dateTue 3 Feb 2009, 08:02 (18 years ago)
parent1d2fc49
Data/Text.hs+1−1
@@ -584,7 +584,7 @@ inits :: Text -> [Text]
584584inits t@(Text arr off len) = loop off
585585 where loop i | i >= len = [t]
586586 | otherwise = Text arr off i : loop j
587− where j | n < 0xDC00 || n > 0xDFFF = i + 1
587+ where j | n < 0xD800 || n > 0xDBFF = i + 1
588588 | otherwise = i + 2
589589 n = A.unsafeIndex arr i
590590