[project @ 2000-10-16 10:05:00 by sewardj]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcMonoType.lhs

diff --git a/ghc/compiler/typecheck/TcMonoType.lhs b/ghc/compiler/typecheck/TcMonoType.lhs
index 38e4cbf..41838df 100644 (file)
--- a/ghc/compiler/typecheck/TcMonoType.lhs
+++ b/ghc/compiler/typecheck/TcMonoType.lhs
@@ -25,10 +25,10 @@ import TcHsSyn              ( TcId )
 
 import TcMonad
 import TcEnv           ( tcExtendTyVarEnv, tcExtendKindEnv, 
-                         tcLookup, tcLookupGlobal,
-                         tcGetEnv, tcEnvTyVars, tcEnvTcIds,
+                         --tcLookup, tcLookupGlobal,
+                         tcEnvTcIds, tcEnvTyVars,
                          tcGetGlobalTyVars, 
-                         TyThing(..)
+                         TyThing(..), TcTyThing(..)
                        )
 import TcType          ( TcType, TcKind, TcTyVar, TcThetaType, TcTauType,
                          newKindVar, tcInstSigVar,
@@ -65,7 +65,7 @@ import BasicTypes     ( Boxity(..) )
 import SrcLoc          ( SrcLoc )
 import Util            ( mapAccumL, isSingleton )
 import Outputable
-
+import HscTypes                ( TyThing(..) )
 \end{code}