From 1f3a9da2d3b6dcaf0634b3d4f5dbe54f069eebb8 Mon Sep 17 00:00:00 2001 From: simonmar Date: Tue, 11 Jul 2000 15:58:26 +0000 Subject: [PATCH] [project @ 2000-07-11 15:58:26 by simonmar] remove unused imports; misc cleanup --- ghc/compiler/basicTypes/MkId.lhs | 3 --- ghc/compiler/basicTypes/OccName.lhs | 9 +++++---- 2 files changed, 5 insertions(+), 7 deletions(-) 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 -- 1.7.10.4