X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcoreSyn%2FCoreUnfold.lhs;fp=ghc%2Fcompiler%2FcoreSyn%2FCoreUnfold.lhs;h=195ac4852f64b47075e488644044381fb9ec1fd9;hb=245fc0698260f157525c3e0be251f28e07629ff4;hp=90463419c41e30bd70ed39842c9c35047afc921d;hpb=f74c3a0e15b6c5e650fc9ae6760276f564605fbc;p=ghc-hetmet.git

diff --git a/ghc/compiler/coreSyn/CoreUnfold.lhs b/ghc/compiler/coreSyn/CoreUnfold.lhs
index 9046341..195ac48 100644
--- a/ghc/compiler/coreSyn/CoreUnfold.lhs
+++ b/ghc/compiler/coreSyn/CoreUnfold.lhs
@@ -58,7 +58,7 @@ import FastTypes
 import Outputable
 
 #if __GLASGOW_HASKELL__ >= 404
-import GlaExts		( fromInt, Int# )
+import GlaExts		( Int# )
 #endif
 \end{code}
 
@@ -669,7 +669,7 @@ computeDiscount n_vals_wanted arg_discounts res_discount arg_infos result_used
 			-- Discount of 1 for each arg supplied, because the 
 			-- result replaces the call
     round (opt_UF_KeenessFactor * 
-	   fromInt (arg_discount + result_discount))
+	   fromIntegral (arg_discount + result_discount))
   where
     arg_discount = sum (zipWith mk_arg_discount arg_discounts arg_infos)