From: simonpj <unknown>
Date: Fri, 21 Feb 2003 13:27:31 +0000 (+0000)
Subject: [project @ 2003-02-21 13:27:30 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1110
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=dfc75488f4cd1d4f6bf9896f5a901996c77bbc77;p=ghc-hetmet.git

[project @ 2003-02-21 13:27:30 by simonpj]
Import pruning
---

diff --git a/ghc/compiler/types/PprType.lhs b/ghc/compiler/types/PprType.lhs
index fa96fdf..4a04bff 100644
--- a/ghc/compiler/types/PprType.lhs
+++ b/ghc/compiler/types/PprType.lhs
@@ -27,8 +27,7 @@ import TcType		( ThetaType, PredType, TyThing(..),
 import Var		( TyVar, tyVarKind )
 import Class		( Class )
 import TyCon		( TyCon, isPrimTyCon, isTupleTyCon, tupleTyConBoxity,
-			  maybeTyConSingleCon, isEnumerationTyCon, 
-			  tyConArity, tyConName
+			  maybeTyConSingleCon, isEnumerationTyCon, tyConArity
 			)
 
 -- others:
diff --git a/ghc/compiler/types/TyCon.lhs b/ghc/compiler/types/TyCon.lhs
index 349d096..ca41d14 100644
--- a/ghc/compiler/types/TyCon.lhs
+++ b/ghc/compiler/types/TyCon.lhs
@@ -67,7 +67,7 @@ import BasicTypes	( Arity, RecFlag(..), Boxity(..),
 import Name		( Name, nameUnique, NamedThing(getName) )
 import PrelNames	( Unique, Uniquable(..), anyBoxConKey )
 import PrimRep		( PrimRep(..), isFollowableRep )
-import Maybes		( expectJust, orElse )
+import Maybes		( orElse )
 import Outputable
 import FastString
 \end{code}