@@ -1049,11 +1049,8 @@ drop :: Int -> Text -> Text
10491049drop n t@(Text arr off len)
10501050 | n <= 0 = t
10511051 | n >= len = empty
1052− | otherwise = loop 0 0
1053− where loop !i !cnt
1054− | i >= len || cnt >= n = Text arr (off+i) (len-i)
1055− | otherwise = loop (i+d) (cnt+1)
1056− where d = iter_ t i
1052+ | otherwise = text arr (off+i) (len-i)
1053+ where i = iterN n t
10571054{-# INLINE [1] drop #-}
10581055
10591056{-# RULES