@@ -596,8 +596,7 @@ drop n t@(Text arr off len)
596 | n <= 0 = t
596 | n <= 0 = t
597 | n >= len = empty
597 | n >= len = empty
598 | otherwise = loop 0 0
598 | otherwise = loop 0 0
599− where end = off + len
600− loop !i !cnt
599+ where loop !i !cnt
601 | i >= len || cnt >= n = Text arr (off+i) (len-i)
600 | i >= len || cnt >= n = Text arr (off+i) (len-i)
602 | otherwise = loop (i+d) (cnt+1)
601 | otherwise = loop (i+d) (cnt+1)
603 where d = iter_ t i
602 where d = iter_ t i