Skip to content

Commit 041cf6d

Browse files
committed
Allow toCaseFold to inline in any phase, to allow fusion.
This mirrors commits 1e10823, just for strict functions.
1 parent 34ec9e2 commit 041cf6d

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

Data/Text/Lazy.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -793,7 +793,7 @@ replace s d = intercalate d . splitOn s
793793
-- itself.
794794
toCaseFold :: Text -> Text
795795
toCaseFold t = unstream (S.toCaseFold (stream t))
796-
{-# INLINE [0] toCaseFold #-}
796+
{-# INLINE toCaseFold #-}
797797

798798
-- | /O(n)/ Convert a string to lower case, using simple case
799799
-- conversion. Subject to fusion.

0 commit comments

Comments
 (0)