From 801c9549052461a51db94cc9618816c5862800c9 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 15 Mar 2002 16:08:16 +0000
Subject: [PATCH] [project @ 2002-03-15 16:08:16 by simonpj] Import wibbles

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

diff --git a/ghc/compiler/basicTypes/Name.lhs b/ghc/compiler/basicTypes/Name.lhs
index 816b87b..7ff32cb 100644
--- a/ghc/compiler/basicTypes/Name.lhs
+++ b/ghc/compiler/basicTypes/Name.lhs
@@ -35,8 +35,7 @@ module Name (
 
 import OccName		-- All of it
 import Module		( Module, moduleName, mkVanillaModule, isHomeModule )
-import RdrName		( RdrName, mkRdrOrig, mkRdrUnqual, rdrNameOcc,
-			  rdrNameModule, mkRdrQual )
+import RdrName		( RdrName, mkRdrOrig, mkRdrUnqual, rdrNameOcc, rdrNameModule )
 import CmdLineOpts	( opt_Static )
 import SrcLoc		( builtinSrcLoc, noSrcLoc, SrcLoc )
 import Unique		( Unique, Uniquable(..), u2i, pprUnique )
diff --git a/ghc/compiler/types/PprType.lhs b/ghc/compiler/types/PprType.lhs
index c8edc3e..01ee250 100644
--- a/ghc/compiler/types/PprType.lhs
+++ b/ghc/compiler/types/PprType.lhs
@@ -18,9 +18,8 @@ module PprType(
 
 -- friends:
 -- (PprType can see all the representations it's trying to print)
-import TypeRep		( Type(..), TyNote(..), 
-			  Kind, liftedTypeKind ) -- friend
-import Type		( SourceType(..), eqKind )
+import TypeRep		( Type(..), TyNote(..), Kind  ) -- friend
+import Type		( SourceType(..) )
 import TcType		( ThetaType, PredType,
 			  tcSplitSigmaTy, isPredTy, isDictTy,
 			  tcSplitTyConApp_maybe, tcSplitFunTy_maybe
-- 
1.7.10.4