diff --git a/Data/Text.hs b/Data/Text.hs index 10c767b2a0e367ac58228d98fc7fead8d2e9b0ed..91a7e0b06a8b579f199df72ac42f9a74bd6b9bac 100644 --- a/Data/Text.hs +++ b/Data/Text.hs @@ -430,7 +430,7 @@ append a@(Text arr1 off1 len1) b@(Text arr2 off2 len2) A.copyI arr 0 arr1 off1 len1 A.copyI arr len1 arr2 off2 len return arr -{-# INLINE append #-} +{-# NOINLINE append #-} {-# RULES "TEXT append -> fused" [~1] forall t1 t2.