From 245fc0698260f157525c3e0be251f28e07629ff4 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 11 Feb 2002 15:48:58 +0000
Subject: [PATCH] [project @ 2002-02-11 15:48:58 by simonmar] fromInt ==>
 fromIntegral

---
 ghc/compiler/coreSyn/CoreUnfold.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)
 
-- 
1.7.10.4