From 109941228d16cc873a08da9924cb881c51be853b Mon Sep 17 00:00:00 2001
From: Bryan O'Sullivan <bos@serpentine.com>
Date: Thu, 6 Mar 2014 08:22:50 -0800
Subject: [PATCH] Drop a weird, and seemingly unnecessary, INLINE of append

---
 Data/Text.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Data/Text.hs b/Data/Text.hs
index 10c767b2..91a7e0b0 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.
-- 
GitLab