From: simonmar <unknown>
Date: Tue, 11 Jul 2000 15:58:26 +0000 (+0000)
Subject: [project @ 2000-07-11 15:58:26 by simonmar]
X-Git-Tag: Approximately_9120_patches~4039
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1f3a9da2d3b6dcaf0634b3d4f5dbe54f069eebb8;p=ghc-hetmet.git

[project @ 2000-07-11 15:58:26 by simonmar]
remove unused imports; misc cleanup
---

diff --git a/ghc/compiler/basicTypes/MkId.lhs b/ghc/compiler/basicTypes/MkId.lhs
index 2643dff..69ba8af 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 90d6d9f..e2da548 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