diff options
| -rw-r--r-- | ghc/compiler/basicTypes/MkId.lhs | 3 | ||||
| -rw-r--r-- | 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 2643dff8d9..69ba8af288 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 90d6d9f605..e2da548cb2 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 |