From 505f84a8711baf64165a171824a256e75f253cd4 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 12 Feb 2002 09:43:08 +0000
Subject: [PATCH] [project @ 2002-02-12 09:43:08 by simonmar] fromInt ==>
 fromIntegral

---
 ghc/compiler/typecheck/TcGenDeriv.lhs |    8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/ghc/compiler/typecheck/TcGenDeriv.lhs b/ghc/compiler/typecheck/TcGenDeriv.lhs
index ac77456..175973b 100644
--- a/ghc/compiler/typecheck/TcGenDeriv.lhs
+++ b/ghc/compiler/typecheck/TcGenDeriv.lhs
@@ -64,10 +64,6 @@ import Panic		( panic, assertPanic )
 import Maybes		( maybeToBool )
 import Constants
 import List		( partition, intersperse )
-
-#if __GLASGOW_HASKELL__ >= 404
-import GlaExts		( fromInt )
-#endif
 \end{code}
 
 %************************************************************************
@@ -1034,12 +1030,12 @@ getLRPrecs is_infix get_fixity nm = [lp, rp]
       | otherwise       = paren_con_prec + 1
 		  
 defaultPrecedence :: Integer
-defaultPrecedence = fromInt maxPrecedence
+defaultPrecedence = fromIntegral maxPrecedence
 
 getPrecedence :: FixityEnv -> Name -> Integer
 getPrecedence get_fixity nm 
    = case lookupFixity get_fixity nm of
-        Fixity x _ -> fromInt x
+        Fixity x _ -> fromIntegral x
 
 isLRAssoc :: FixityEnv -> Name -> (Bool, Bool)
 isLRAssoc get_fixity nm =
-- 
1.7.10.4