From: simonpj <unknown>
Date: Tue, 30 Dec 2003 14:05:47 +0000 (+0000)
Subject: [project @ 2003-12-30 14:05:46 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~164
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=9e90a28e134b8e5af3f6ec9b7300bc41324fea9c

[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
--- 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
--- 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
--- 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}