@@ -45,7 +45,7 @@ text :: A.Array Word16 -> Int -> Int -> Text
45text arr off len =
45text arr off len =
46 assert (len >= 0) .
46 assert (len >= 0) .
47 assert (off >= 0) .
47 assert (off >= 0) .
48− assert (alen == 0 || off < alen) .
48+ assert (alen == 0 || len == 0 || off < alen) .
49 assert (len == 0 || c < 0xDC00 || c > 0xDFFF) $
49 assert (len == 0 || c < 0xDC00 || c > 0xDFFF) $
50 Text arr off len
50 Text arr off len
51 where c = A.unsafeIndex arr off
51 where c = A.unsafeIndex arr off