Import trimming

diff --git a/compiler/basicTypes/Var.lhs b/compiler/basicTypes/Var.lhs
index 017e355..faf32d7 100644 (file)
--- a/compiler/basicTypes/Var.lhs
+++ b/compiler/basicTypes/Var.lhs
@@ -35,14 +35,11 @@ module Var (
 
 #include "HsVersions.h"
 
-import {-# SOURCE #-}  TypeRep( Type, Kind, isCoSuperKind )
+import {-# SOURCE #-}  TypeRep( Type, Kind )
 import {-# SOURCE #-}  TcType( TcTyVarDetails, pprTcTyVarDetails )
 import {-# SOURCE #-}  IdInfo( GlobalIdDetails, notGlobalId, IdInfo, seqIdInfo )
 
-import Name            ( Name, NamedThing(..),
-                         setNameUnique, nameUnique, mkSysTvName, 
-                          mkSystemVarName
-                       )
+import Name            ( Name, NamedThing(..), setNameUnique, nameUnique, mkSysTvName )
 import Unique          ( Unique, Uniquable(..), mkUniqueGrimily, getKey#,
                           mkBuiltinUnique )
 import FastTypes

diff --git a/compiler/main/HscTypes.lhs b/compiler/main/HscTypes.lhs
index 2c0fa6c..34f6555 100644 (file)
--- a/compiler/main/HscTypes.lhs
+++ b/compiler/main/HscTypes.lhs
@@ -85,7 +85,7 @@ import Id             ( Id )
 import Type            ( TyThing(..) )
 
 import Class           ( Class, classSelIds, classATs, classTyCon )
-import TyCon           ( TyCon, tyConSelIds, tyConDataCons, isNewTyCon,
+import TyCon           ( TyCon, tyConSelIds, tyConDataCons, 
                          newTyConCo_maybe, tyConFamilyCoercion_maybe )
 import DataCon         ( DataCon, dataConImplicitIds )
 import PrelNames       ( gHC_PRIM )

diff --git a/compiler/main/Main.hs b/compiler/main/Main.hs
index 52097d9..0dd1cbe 100644 (file)
--- a/compiler/main/Main.hs
+++ b/compiler/main/Main.hs
@@ -27,13 +27,13 @@ import InteractiveUI        ( ghciWelcomeMsg, interactiveUI )
 
 -- Various other random stuff that we need
 import Config          ( cProjectVersion, cBooterVersion, cProjectName )
-import Packages                ( dumpPackages, initPackages )
+import Packages                ( dumpPackages )
 import DriverPhases    ( Phase(..), isSourceFilename, anyHsc,
                          startPhase, isHaskellSrcFilename )
 import StaticFlags     ( staticFlags, v_Ld_inputs, parseStaticFlags )
 import DynFlags         ( defaultDynFlags )
 import BasicTypes      ( failed )
-import ErrUtils                ( Message, debugTraceMsg, putMsg )
+import ErrUtils                ( putMsg )
 import FastString      ( getFastStringTable, isZEncoded, hasZEncoding )
 import Outputable
 import Util

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index 73cfb83..372ccab 100644 (file)
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -35,7 +35,6 @@ import RdrHsSyn               ( findSplice )
 import PrelNames       ( runMainIOName, rootMainKey, rOOT_MAIN, mAIN,
                          main_RDR_Unqual )
 import RdrName         ( RdrName, mkRdrUnqual, emptyGlobalRdrEnv )
-import TyCon           ( isOpenTyCon )
 import TcHsSyn         ( zonkTopDecls )
 import TcExpr          ( tcInferRho )
 import TcRnMonad

diff --git a/compiler/types/Type.lhs b/compiler/types/Type.lhs
index 7c05b6d..f816493 100644 (file)
--- a/compiler/types/Type.lhs
+++ b/compiler/types/Type.lhs
@@ -115,22 +115,26 @@ import Name       ( NamedThing(..), tidyNameOcc )
 import Class   ( Class, classTyCon )
 import PrelNames( openTypeKindTyConKey, unliftedTypeKindTyConKey, 
                   ubxTupleKindTyConKey, argTypeKindTyConKey )
-import TyCon   ( TyCon, isRecursiveTyCon, isPrimTyCon,
+import TyCon   ( TyCon, isPrimTyCon,
                  isUnboxedTupleTyCon, isUnLiftedTyCon,
                  isFunTyCon, isNewTyCon, isClosedNewTyCon, 
                  newTyConRep, newTyConRhs, 
-                 isAlgTyCon, tyConArity, isSuperKindTyCon,
+                 isAlgTyCon, isSuperKindTyCon,
                  tcExpandTyCon_maybe, coreExpandTyCon_maybe,
-                 tyConKind, PrimRep(..), tyConPrimRep, tyConUnique,
-                  isCoercionTyCon
+                 tyConKind, PrimRep(..), tyConPrimRep, tyConUnique
                )
 
 -- others
 import StaticFlags     ( opt_DictsStrict )
-import Util            ( mapAccumL, seqList, lengthIs, snocView, thenCmp, isEqual, all2 )
+import Util            ( mapAccumL, seqList, snocView, thenCmp, isEqual, all2 )
 import Outputable
 import UniqSet         ( sizeUniqSet )         -- Should come via VarSet
 import Maybe           ( isJust )
+
+#ifdef DEBUG
+import TyCon   ( isRecursiveTyCon, tyConArity, isCoercionTyCon )
+import Util    ( lengthIs )
+#endif
 \end{code}