From 9e90a28e134b8e5af3f6ec9b7300bc41324fea9c Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 30 Dec 2003 14:05:47 +0000
Subject: [PATCH] [project @ 2003-12-30 14:05:46 by simonpj] Import trimming

---
 ghc/compiler/types/Class.lhs      |    1 -
 ghc/compiler/types/InstEnv.lhs    |    2 +-
 ghc/compiler/utils/Outputable.lhs |    2 +-
 3 files changed, 2 insertions(+), 3 deletions(-)

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