@@ -584,7 +584,7 @@ inits :: Text -> [Text]
584inits t@(Text arr off len) = loop off
584inits t@(Text arr off len) = loop off
585 where loop i | i >= len = [t]
585 where loop i | i >= len = [t]
586 | otherwise = Text arr off i : loop j
586 | 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
588 | otherwise = i + 2
588 | otherwise = i + 2
589 n = A.unsafeIndex arr i
589 n = A.unsafeIndex arr i