X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnEnv.lhs;h=d402a4c214b50ed08c0dc918de400ff4a2ea3c6b;hb=a4a632f53f22c4cff2c7cc6171c94da5dc2a2530;hp=1db8e3784fdf7016cb5fc5deb749a0719861c9e1;hpb=2f41561d35ed975332d1cd56e7b49ff6731dcfab;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs
index 1db8e37..d402a4c 100644
--- a/ghc/compiler/rename/RnEnv.lhs
+++ b/ghc/compiler/rename/RnEnv.lhs
@@ -12,6 +12,7 @@ import {-# SOURCE #-} RnHiFiles
 
 import HsSyn
 import RdrHsSyn		( RdrNameIE )
+import RnHsSyn		( RenamedTyClDecl )
 import RdrName		( RdrName, rdrNameModule, rdrNameOcc, isQual, isUnqual, isOrig,
 			  mkRdrUnqual, mkRdrQual, lookupRdrEnv, foldRdrEnv
 			)
@@ -411,21 +412,6 @@ ubiquitousNames
 \end{code}
 
 \begin{code}
-implicitGates :: Name -> FreeVars	
--- If we load class Num, add Integer to the gates
--- This takes account of the fact that Integer might be needed for
--- defaulting, but we don't want to load Integer (and all its baggage)
--- if there's no numeric stuff needed.
--- Similarly for class Fractional and Double
---
--- NB: If we load (say) Floating, we'll end up loading Fractional too,
---     since Fractional is a superclass of Floating
-implicitGates cls | cls `hasKey` numClassKey	    = unitFV integerTyConName
-		  | cls `hasKey` fractionalClassKey = unitFV doubleTyConName
-		  | otherwise			    = emptyFVs
-\end{code}
-
-\begin{code}
 rnSyntaxNames :: GlobalRdrEnv -> FreeVars -> RnMG (FreeVars, SyntaxMap)
 -- Look up the re-bindable syntactic sugar names
 -- Any errors arising from these lookups may surprise the