on master help sign in
Allow more fusion
commit1e108238815d18cdab41c90254ed09c1dbaffd32 authorBryan O'Sullivan <bos@serpentine.com> dateFri 8 May 2015, 12:59 (11 years ago) parenta05a2cd
1 file changed+3−3
Data/Text.hs+3−3
Data/Text.hs+3−3
@@ -758,7 +758,7 @@ replace needle@(Text _ _ neeLen)
758758-- instead of itself.
759759toCaseFold :: Text -> Text
760760toCaseFold t = unstream (S.toCaseFold (stream t))
761−{-# INLINE [0] toCaseFold #-}
761+{-# INLINE toCaseFold #-}
762762
763763-- | /O(n)/ Convert a string to lower case, using simple case
764764-- conversion. Subject to fusion.
@@ -1535,7 +1535,7 @@ countChar c t = S.countChar c (stream t)
15351535-- equivalent to a pair of 'unpack' operations.
15361536zip :: Text -> Text -> [(Char,Char)]
15371537zip a b = S.unstreamList $ S.zipWith (,) (stream a) (stream b)
1538−{-# INLINE [0] zip #-}
1538+{-# INLINE zip #-}
15391539
15401540-- | /O(n)/ 'zipWith' generalises 'zip' by zipping with the function
15411541-- given as the first argument, instead of a tupling function.
@@ -1543,7 +1543,7 @@ zip a b = S.unstreamList $ S.zipWith (,) (stream a) (stream b)
15431543zipWith :: (Char -> Char -> Char) -> Text -> Text -> Text
15441544zipWith f t1 t2 = unstream (S.zipWith g (stream t1) (stream t2))
15451545 where g a b = safe (f a b)
1546−{-# INLINE [0] zipWith #-}
1546+{-# INLINE zipWith #-}
15471547
15481548-- | /O(n)/ Breaks a 'Text' up into a list of words, delimited by 'Char's
15491549-- representing white space.