Make sure zipWithFB has arity 2
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 25 Nov 2009 01:00:03 +0000 (01:00 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 25 Nov 2009 01:00:03 +0000 (01:00 +0000)
commit450bac65fc1422533ddca5fbc189c04a6529206c
treef377c2197ba93ae6a3029ed51b6d0961879c73e1
parent78217b0598a655aabf1d43bf6acd4e7c1a1bff88
Make sure zipWithFB has arity 2

It gets 2 arguments in the "zipWith" rule but its arity was higher and the new
inliner didn't inline it sometimes, for instance here:

mpp ::  [Double] -> [Double] -> [Double] -> [Double] -> [Double]
mpp as bs cs ds = zipWith (*) (zipWith (+) as bs) (zipWith (+) cs ds)

This was a regression vs. 6.10.
libraries/base/GHC/List.lhs