From ff3d1aecef407d6a1eee09f92684a96d64e27c10 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Thu, 29 Oct 2009 13:43:35 +0000
Subject: [PATCH 1/1] Inline foldr and (.) when applied to two arguments not
 three

The new INLINE story is (by design) arity-sensitive, so we must
put fewer argument on the LHS for foldr and (.)
---
 GHC/Base.lhs |   16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index 62612b0..6293c12 100644
--- a/GHC/Base.lhs
+++ b/GHC/Base.lhs
@@ -283,10 +283,12 @@ foldr            :: (a -> b -> b) -> b -> [a] -> b
 -- foldr f z (x:xs) =  f x (foldr f z xs)
 {-# INLINE [0] foldr #-}
 -- Inline only in the final stage, after the foldr/cons rule has had a chance
-foldr k z xs = go xs
-             where
-               go []     = z
-               go (y:ys) = y `k` go ys
+-- Also note that we inline it when it has *two* parameters, which are the 
+-- ones we are keen about specialising!
+foldr k z = go
+          where
+            go []     = z
+            go (y:ys) = y `k` go ys
 
 -- | A list producer that can be fused with 'foldr'.
 -- This function is merely
@@ -684,8 +686,10 @@ const x _               =  x
 
 -- | Function composition.
 {-# INLINE (.) #-}
-(.)       :: (b -> c) -> (a -> b) -> a -> c
-(.) f g x = f (g x)
+-- Make sure it has TWO args only on the left, so that it inlines
+-- when applied to two functions, even if there is no final argument
+(.)    :: (b -> c) -> (a -> b) -> a -> c
+(.) f g = \x -> f (g x)
 
 -- | @'flip' f@ takes its (first) two arguments in the reverse order of @f@.
 flip                    :: (a -> b -> c) -> b -> a -> c
-- 
1.7.10.4