@@ -985,7 +985,7 @@ dropEnd :: Int64 -> Text -> Text
985dropEnd n t0
985dropEnd n t0
986 | n <= 0 = t0
986 | n <= 0 = t0
987 | otherwise = dropChunk n . L.reverse . toChunks $ t0
987 | otherwise = dropChunk n . L.reverse . toChunks $ t0
988− where dropChunk m [] = empty
988+ where dropChunk _ [] = empty
989 dropChunk m (t:ts)
989 dropChunk m (t:ts)
990 | m >= l = dropChunk (m-l) ts
990 | m >= l = dropChunk (m-l) ts
991 | otherwise = fromChunks . L.reverse $
991 | otherwise = fromChunks . L.reverse $