[project @ 2000-07-11 15:58:26 by simonmar]

remove unused imports; misc cleanup

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}		
 
 

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