From: simonmar <unknown>
Date: Mon, 11 Feb 2002 15:48:58 +0000 (+0000)
Subject: [project @ 2002-02-11 15:48:58 by simonmar]
X-Git-Tag: Approximately_9120_patches~103
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=245fc0698260f157525c3e0be251f28e07629ff4;p=ghc-hetmet.git

[project @ 2002-02-11 15:48:58 by simonmar]
fromInt ==> fromIntegral
---

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)