Fix an incorrect assert.
--HG--
extra : convert_revision : 69340136868e94a36701c45ca9fcb63a915068bc
commite5796b24deecadd3eb4aa8ff790ce9e259af92f7
authorBryan O'Sullivan <bos@serpentine.com>
dateFri 14 Aug 2009, 22:09 (17 years ago)
parent4f151f1
Data/Text/Internal.hs+1−1
@@ -45,7 +45,7 @@ text :: A.Array Word16 -> Int -> Int -> Text
4545text arr off len =
4646 assert (len >= 0) .
4747 assert (off >= 0) .
48− assert (alen == 0 || off < alen) .
48+ assert (alen == 0 || len == 0 || off < alen) .
4949 assert (len == 0 || c < 0xDC00 || c > 0xDFFF) $
5050 Text arr off len
5151 where c = A.unsafeIndex arr off