Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
ebef357f
Commit
ebef357f
authored
Oct 23, 2000
by
simonpj
Browse files
[project @ 2000-10-23 16:43:42 by simonpj]
A tiny bit more
parent
d2cca44e
Changes
2
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/main/HscTypes.lhs
View file @
ebef357f
...
...
@@ -21,11 +21,13 @@ module HscTypes (
WhetherHasOrphans, ImportVersion, WhatsImported(..),
PersistentRenamerState(..), IsBootInterface, Avails, DeclsMap,
IfaceInsts, IfaceRules,
Deprecations(..),
GatedDecl,
IfaceInsts, IfaceRules, GatedDecl,
OrigNameEnv(..), OrigNameNameEnv, OrigNameIParamEnv,
AvailEnv, AvailInfo, GenAvailInfo(..),
PersistentCompilerState(..),
Deprecations(..), lookupDeprec,
InstEnv, ClsInstEnv, DFunId,
GlobalRdrEnv, RdrAvailInfo,
...
...
@@ -266,6 +268,13 @@ data Deprecations = NoDeprecs
| DeprecSome (NameEnv DeprecTxt) -- Some things deprecated
-- Just "big" names
lookupDeprec :: ModIface -> Name -> Maybe DeprecTxt
lookupDeprec iface name
= case mi_deprecs iface of
NoDeprecs -> Nothing
DeprecAll txt -> Just txt
DeprecSome env -> lookupNameEnv env name
type InstEnv = UniqFM ClsInstEnv -- Maps Class to instances for that class
type ClsInstEnv = [(TyVarSet, [Type], DFunId)] -- The instances for a particular class
type DFunId = Id
...
...
ghc/compiler/rename/Rename.lhs
View file @
ebef357f
...
...
@@ -66,7 +66,9 @@ import IO ( openFile, IOMode(..) )
import HscTypes ( Finder, PersistentCompilerState, HomeIfaceTable, HomeSymbolTable,
ModIface(..), TyThing(..),
GlobalRdrEnv, AvailEnv, Avails, GenAvailInfo(..), AvailInfo,
Provenance(..), pprNameProvenance, ImportReason(..) )
Provenance(..), pprNameProvenance, ImportReason(..),
lookupDeprec
)
import List ( partition, nub )
\end{code}
...
...
@@ -765,8 +767,8 @@ reportUnusedNames mod_name direct_import_mods
not (maybeToBool (lookupFM minimal_imports m)),
m /= pRELUDE_Name]
module_unused :: Module
Name
-> Bool
module_unused mod = mod `elem` unused_imp_mods
module_unused :: Module -> Bool
module_unused mod =
moduleName
mod `elem` unused_imp_mods
warnDeprecations used_names
...
...
@@ -786,15 +788,13 @@ warnDeprecations used_names
where
lookup_deprec hit pit n
= case lookupModuleEnv hit mod of
Just iface -> lookup
_iface
iface n
Just iface -> lookup
Deprec
iface n
Nothing -> case lookupModuleEnv pit mod of
Just iface -> lookup
_iface
iface n
Just iface -> lookup
Deprec
iface n
Nothing -> pprPanic "warnDeprecations:" (ppr n)
where
mod = nameModule n
lookup_iface iface n = lookupNameEnv (mi_deprecs iface) n
-- ToDo: deal with original imports with 'qualified' and 'as M' clauses
printMinimalImports mod_name imps
= doptRn Opt_D_dump_minimal_imports `thenRn` \ dump_minimal ->
...
...
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