Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
obsidiansystems
GHC
Commits
1f3a9da2
Commit
1f3a9da2
authored
Jul 11, 2000
by
simonmar
Browse files
[project @ 2000-07-11 15:58:26 by simonmar]
remove unused imports; misc cleanup
parent
76050f00
Changes
2
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/basicTypes/MkId.lhs
View file @
1f3a9da2
...
...
@@ -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
View file @
1f3a9da2
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment