From: simonpj <unknown>
Date: Fri, 15 Mar 2002 16:08:16 +0000 (+0000)
Subject: [project @ 2002-03-15 16:08:16 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~2257
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=801c9549052461a51db94cc9618816c5862800c9;p=ghc-hetmet.git

[project @ 2002-03-15 16:08:16 by simonpj]
Import wibbles
---

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