Commits

Bryan O'Sullivan committed 553898f

Fix an incorrect assert.

  • Participants
  • Parent commits 88ccd83

Comments (0)

Files changed (1)

Data/Text/Internal.hs

 text arr off len =
     assert (len >= 0) .
     assert (off >= 0) .
-    assert (alen == 0 || off < alen) .
+    assert (alen == 0 || len == 0 || off < alen) .
     assert (len == 0 || c < 0xDC00 || c > 0xDFFF) $
     Text arr off len
   where c    = A.unsafeIndex arr off