X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnTypes.lhs;h=7ec84e09a38d2bd4d9e335c9f841f8009c442ae7;hb=fa8faa35b45e97ceceec54adc4ae6ef92f0a5858;hp=c5c541b55a87ed717bb9a6ae179f4a86afabda12;hpb=cb2be98ac73ffcc2e2cd631de403e83569a12b4d;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnTypes.lhs b/ghc/compiler/rename/RnTypes.lhs
index c5c541b..7ec84e0 100644
--- a/ghc/compiler/rename/RnTypes.lhs
+++ b/ghc/compiler/rename/RnTypes.lhs
@@ -16,7 +16,7 @@ import CmdLineOpts	( DynFlag(Opt_WarnUnusedMatches, Opt_GlasgowExts) )
 import HsSyn
 import RdrHsSyn		( extractHsRhoRdrTyVars )
 import RnHsSyn		( extractHsTyNames, parrTyCon_name, tupleTyCon_name, 
-			  listTyCon_name, charTyCon_name
+			  listTyCon_name
 			)
 import RnEnv		( lookupOccRn, lookupBndrRn, lookupSyntaxName,
 			  lookupLocatedOccRn, lookupLocatedBndrRn,
@@ -25,15 +25,12 @@ import RnEnv		( lookupOccRn, lookupBndrRn, lookupSyntaxName,
 			  newIPNameRn, bindPatSigTyVarsFV, bindLocatedLocalsFV )
 import TcRnMonad
 import RdrName		( RdrName, elemLocalRdrEnv )
-import PrelNames	( eqStringName, eqClassName, integralClassName, 
+import PrelNames	( eqClassName, integralClassName, 
 		  	  negateName, minusName, lengthPName, indexPName,
 			  plusIntegerName, fromIntegerName, timesIntegerName,
 			  ratioDataConName, fromRationalName )
 import Constants	( mAX_TUPLE_SIZE )
-import TysWiredIn	( intTyCon )
-import TysPrim		( charPrimTyCon, addrPrimTyCon, intPrimTyCon, 
-			  floatPrimTyCon, doublePrimTyCon )
-import Name		( Name, NamedThing(..) )
+import Name		( Name )
 import SrcLoc		( Located(..), unLoc )
 import NameSet