From dfc75488f4cd1d4f6bf9896f5a901996c77bbc77 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 21 Feb 2003 13:27:31 +0000
Subject: [PATCH] [project @ 2003-02-21 13:27:30 by simonpj] Import pruning

---
 ghc/compiler/types/PprType.lhs |    3 +--
 ghc/compiler/types/TyCon.lhs   |    2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

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