diff --git a/ghc/compiler/basicTypes/MkId.lhs b/ghc/compiler/basicTypes/MkId.lhs
index 2643dff8d9502e7a03bd585f0192d03aa72a0c3e..69ba8af2884a69f5429974b9915a37160c9f827d 100644
--- a/ghc/compiler/basicTypes/MkId.lhs
+++ b/ghc/compiler/basicTypes/MkId.lhs
@@ -47,7 +47,6 @@ import Type		( Type, ClassContext, mkDictTy, mkDictTys, mkTyConApp, mkTyVarTys,
 			  splitFunTys, splitForAllTys, unUsgTy,
 			  mkUsgTy, UsageAnn(..)
 			)
-import PprType		( pprParendType )
 import Module		( Module )
 import CoreUtils	( exprType, mkInlineMe )
 import CoreUnfold 	( mkTopUnfolding, mkCompulsoryUnfolding, mkOtherCon )
@@ -89,12 +88,10 @@ import FieldLabel	( FieldLabel, FieldLabelTag, mkFieldLabel, fieldLabelName,
 			)
 import CoreSyn
 import Maybes
-import BasicTypes	( Arity )
 import Unique
 import Maybe            ( isJust )
 import Outputable
 import Util		( assoc )
-import List		( nub )
 \end{code}		
 
 
diff --git a/ghc/compiler/basicTypes/OccName.lhs b/ghc/compiler/basicTypes/OccName.lhs
index 90d6d9f60567a67615d78f2d5e5fa369190c7a67..e2da548cb2b593caf4e5d812b02591b5a8e1adf9 100644
--- a/ghc/compiler/basicTypes/OccName.lhs
+++ b/ghc/compiler/basicTypes/OccName.lhs
@@ -463,10 +463,11 @@ The basic encoding scheme is this.
 alreadyEncoded :: String -> Bool
 alreadyEncoded s = all ok s
 		 where
-		   ok ' ' = True		-- This is a bit of a lie; if we really wanted spaces
-						-- in names we'd have to encode them.  But we do put
-						-- spaces in ccall "occurrences", and we don't want to
-						-- reject them here
+		   ok ' ' = True
+			-- This is a bit of a lie; if we really wanted spaces
+			-- in names we'd have to encode them.  But we do put
+			-- spaces in ccall "occurrences", and we don't want to
+			-- reject them here
 		   ok ch  = ISALPHANUM ch
 
 alreadyEncodedFS :: FAST_STRING -> Bool