[project @ 2003-12-30 14:05:46 by simonpj]

Import trimming

diff --git a/ghc/compiler/types/Class.lhs b/ghc/compiler/types/Class.lhs
index db5d597..3385adc 100644 (file)
--- a/ghc/compiler/types/Class.lhs
+++ b/ghc/compiler/types/Class.lhs
@@ -23,7 +23,6 @@ import Name           ( NamedThing(..), Name )
 import BasicTypes      ( Arity )
 import Unique          ( Unique, Uniquable(..) )
 import Outputable
-import Util             ( notNull )
 \end{code}
 
 %************************************************************************

diff --git a/ghc/compiler/types/InstEnv.lhs b/ghc/compiler/types/InstEnv.lhs
index 44f2db3..c197c05 100644 (file)
--- a/ghc/compiler/types/InstEnv.lhs
+++ b/ghc/compiler/types/InstEnv.lhs
@@ -27,7 +27,7 @@ import TcType         ( Type, tcTyConAppTyCon,
 import FunDeps         ( checkClsFD )
 import TyCon           ( TyCon )
 import Outputable
-import UniqFM          ( UniqFM, lookupWithDefaultUFM, emptyUFM, eltsUFM, addToUFM_C )
+import UniqFM          ( UniqFM, lookupWithDefaultUFM, emptyUFM, addToUFM_C )
 import Id              ( idType )
 import CmdLineOpts
 import Util             ( notNull )

diff --git a/ghc/compiler/utils/Outputable.lhs b/ghc/compiler/utils/Outputable.lhs
index 6e98c2f..339a3bc 100644 (file)
--- a/ghc/compiler/utils/Outputable.lhs
+++ b/ghc/compiler/utils/Outputable.lhs
@@ -62,7 +62,7 @@ import Panic
 import DATA_WORD       ( Word32 )
 
 import IO              ( Handle, stderr, stdout, hFlush )
-import Char             ( chr, ord )
+import Char             ( ord )
 \end{code}