Optimise lazy filter

Author: TeofilC

src/Data/Text/Lazy.hs

@@ -1683,7 +1683,7 @@ stripSuffix p t = reverse `fmap` stripPrefix (reverse p) (reverse t)
 -- returns a 'Text' containing those characters that satisfy the
 -- predicate.
 filter :: (Char -> Bool) -> Text -> Text
-filter p = foldrChunks (\t ts -> filter_ (\arr off l -> chunk (T.Text arr off l) ts) p t) Empty
+filter p = foldrChunks (chunk . filter_ T.Text p) Empty
 {-# INLINE [1] filter #-}
 
 {-# RULES