X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FBase.lhs;h=90c4c219f3d0c45b16458bd61bfa1cd26621eb82;hb=7bd1a6a2d6ba6acfa19ffe46cb535f0ce427dc86;hp=2093ab6186aca152cad92b8d336f563433879e7e;hpb=e7d5994e8dbb5ffea6b3912550971bd170e5e01d;p=ghc-base.git

diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index 2093ab6..90c4c21 100644
--- a/GHC/Base.lhs
+++ b/GHC/Base.lhs
@@ -359,7 +359,7 @@ map f (x:xs) = f x : map f xs
 -- Note eta expanded
 mapFB ::  (elt -> lst -> lst) -> (a -> elt) -> a -> lst -> lst
 {-# INLINE [0] mapFB #-}
-mapFB c f x ys = c (f x) ys
+mapFB c f = \x ys -> c (f x) ys
 
 -- The rules for map work like this.
 --