X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcHsType.lhs;h=3d365ab3d670503ea916e51d8c3bfb22f7b74ad2;hp=78d0b9894491ad666c3d46e0eedc38ab9cb7c653;hb=ab22f4e6456820c1b5169d75f5975a94e61f54ce;hpb=6b4592943b799175dec4549882bbf06fa87a0739

diff --git a/compiler/typecheck/TcHsType.lhs b/compiler/typecheck/TcHsType.lhs
index 78d0b98..3d365ab 100644
--- a/compiler/typecheck/TcHsType.lhs
+++ b/compiler/typecheck/TcHsType.lhs
@@ -1,4 +1,5 @@
-
+%
+% (c) The University of Glasgow 2006
 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 %
 \section[TcMonoType]{Typechecking user-specified @MonoTypes@}
@@ -23,41 +24,26 @@ module TcHsType (
 
 #include "HsVersions.h"
 
-import HsSyn		( HsType(..), LHsType, HsTyVarBndr(..), LHsTyVarBndr, 
-			  LHsContext, HsPred(..), LHsPred )
-import RnHsSyn		( extractHsTyVars )
+import HsSyn
+import RnHsSyn
 import TcRnMonad
-import TcEnv		( tcExtendTyVarEnv, tcExtendKindEnvTvs, 
-			  tcLookup, tcLookupClass, tcLookupTyCon,
-		 	  TyThing(..), getInLocalScope, getScopedTyVarBinds,
-			  wrongThingErr
-			)
-import TcMType		( newKindVar, 
-			  zonkTcKindToKind, 
-			  tcInstBoxyTyVar, readFilledBox,
-			  checkValidType
-			)
-import TcUnify		( boxyUnify, unifyFunKind, checkExpectedKind )
-import TcIface		( checkWiredInTyCon )
-import TcType		( Type, PredType(..), ThetaType, BoxySigmaType,
-			  TcType, TcKind, isRigidTy,
-			  UserTypeCtxt(..), pprUserTypeCtxt,
-			  substTyWith, mkTyVarTys, tcEqType,
-		 	  tcIsTyVarTy, mkFunTy, mkSigmaTy, mkPredTy, 
-			  mkTyConApp, mkAppTys, typeKind )
-import {- Kind parts of -} Type 		( Kind, isLiftedTypeKind, liftedTypeKind, ubxTupleKind, 
-			  openTypeKind, argTypeKind, splitKindFunTys )
-import Var		( TyVar, mkTyVar, tyVarName )
-import TyCon		( TyCon, tyConKind )
-import Class		( Class, classTyCon )
-import Name		( Name, mkInternalName )
-import OccName		( mkOccName, tvName )
+import TcEnv
+import TcMType
+import TcUnify
+import TcIface
+import TcType
+import {- Kind parts of -} Type
+import Var
+import TyCon
+import Class
+import Name
+import OccName
 import NameSet
-import PrelNames	( genUnitTyConName )
-import TysWiredIn	( mkListTy, listTyCon, mkPArrTy, parrTyCon, tupleTyCon )
-import BasicTypes	( Boxity(..) )
-import SrcLoc		( Located(..), unLoc, noLoc, getLoc, srcSpanStart )
-import UniqSupply	( uniqsFromSupply )
+import PrelNames
+import TysWiredIn
+import BasicTypes
+import SrcLoc
+import UniqSupply
 import Outputable
 \end{code}