Update Data.Function constant for prelude 1.0 (purescript#2213)

felixSchl · paf31 · commit 293c345edd7f · 2016-07-09T11:56:25.000-07:00
* Update mkFnN inlining for prelude 1.0

This fixes the compiler not inlining mkFnN, since `Data.Function` has
moved to `Data.Function.Uncurried`

* Update CONTRIBUTORS.md
diff --git a/CONTRIBUTORS.md b/CONTRIBUTORS.md
@@ -72,6 +72,7 @@ This file lists the contributors to the PureScript compiler project, and the ter
 - [@LiamGoodacre](https://github.com/LiamGoodacre) (Liam Goodacre) My existing contributions and all future contributions until further notice are Copyright Liam Goodacre, and are licensed to the owners and users of the PureScript compiler project under the terms of the [MIT license](http://opensource.org/licenses/MIT).
 - [@bsermons](https://github.com/bsermons) (Brian Sermons) My existing contributions and all future contributions until further notice are Copyright Brian Sermons, and are licensed to the owners and users of the PureScript compiler project under the terms of the [MIT license](http://opensource.org/licenses/MIT).
 - [@bmjames](https://github.com/bmjames) (Ben James) My existing contributions and all future contributions until further notice are Copyright Ben James, and are licensed to the owners and users of the PureScript compiler project under the terms of the [MIT license](http://opensource.org/licenses/MIT).
+- - [@felixSchl](https://github.com/felixSchl) (Felix Schlitter) My existing contributions and all future contributions until further notice are Copyright Felix Schlitter, and are licensed to the owners and users of the PureScript compiler project under the terms of the [MIT license](http://opensource.org/licenses/MIT).
 
 ### Companies
 
diff --git a/src/Language/PureScript/CodeGen/JS/Optimizer/Inliner.hs b/src/Language/PureScript/CodeGen/JS/Optimizer/Inliner.hs
@@ -216,7 +216,7 @@ inlineCommonOperators = applyAll $
 
   isNFn :: String -> Int -> JS -> Bool
   isNFn prefix n (JSVar _ name) = name == (prefix ++ show n)
-  isNFn prefix n (JSAccessor _ name (JSVar _ dataFunction)) | dataFunction == C.dataFunction = name == (prefix ++ show n)
+  isNFn prefix n (JSAccessor _ name (JSVar _ dataFunctionUncurried)) | dataFunctionUncurried == C.dataFunctionUncurried = name == (prefix ++ show n)
   isNFn _ _ _ = False
 
   runFn :: Int -> JS -> JS
diff --git a/src/Language/PureScript/Constants.hs b/src/Language/PureScript/Constants.hs
@@ -391,5 +391,8 @@ dataEuclideanRing = "Data_EuclideanRing"
 dataFunction :: String
 dataFunction = "Data_Function"
 
+dataFunctionUncurried :: String
+dataFunctionUncurried = "Data_Function_Uncurried"
+
 dataIntBits :: String
 dataIntBits = "Data_Int_Bits"
