Don't inline fromNumber

garyb · garyb · commit f08bedf71594 · 2015-06-06T21:29:22.000+01:00
diff --git a/src/Language/PureScript/CodeGen/JS/Optimizer/Inliner.hs b/src/Language/PureScript/CodeGen/JS/Optimizer/Inliner.hs
@@ -97,7 +97,6 @@ inlineValues = everywhereOnJS convert
                             | isDict semiringInt dict && isFn fnOne fn = JSNumericLiteral (Left 1)
                             | isDict boundedBoolean dict && isFn fnBottom fn = JSBooleanLiteral False
                             | isDict boundedBoolean dict && isFn fnTop fn = JSBooleanLiteral True
-  convert (JSApp fn [value]) | isFn fromNumber fn = JSBinary BitwiseOr value (JSNumericLiteral (Left 0))
   convert (JSApp (JSApp (JSApp fn [dict]) [x]) [y])
     | isDict semiringInt dict && isFn fnAdd fn = JSBinary BitwiseOr (JSBinary Add x y) (JSNumericLiteral (Left 0))
     | isDict semiringInt dict && isFn fnMultiply fn = JSBinary BitwiseOr (JSBinary Multiply x y) (JSNumericLiteral (Left 0))
@@ -108,7 +107,6 @@ inlineValues = everywhereOnJS convert
   fnOne = (C.prelude, C.one)
   fnBottom = (C.prelude, C.bottom)
   fnTop = (C.prelude, C.top)
-  fromNumber = (C.dataInt, C.fromNumber)
   fnAdd = (C.prelude, (C.+))
   fnDivide = (C.prelude, (C./))
   fnMultiply = (C.prelude, (C.*))
diff --git a/src/Language/PureScript/Constants.hs b/src/Language/PureScript/Constants.hs
@@ -115,9 +115,6 @@ zshr = "zshr"
 complement :: String
 complement = "complement"
 
-fromNumber :: String
-fromNumber = "fromNumber"
-
 -- Prelude Values
 
 zero :: String
