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