Commit 03939a27 authored by simonmar's avatar simonmar
Browse files

[project @ 1999-12-02 13:43:07 by simonmar]

Relegate the 'Out of date: <blah>' messages to -dshow-rn-trace, they
don't mean a great deal to the average punter.
parent 68f77b1b
...@@ -150,7 +150,9 @@ loadInterface doc_str mod_name from ...@@ -150,7 +150,9 @@ loadInterface doc_str mod_name from
in in
foldlRn (loadDecl mod) (iDecls ifaces) rd_decls `thenRn` \ new_decls -> foldlRn (loadDecl mod) (iDecls ifaces) rd_decls `thenRn` \ new_decls ->
foldlRn (loadInstDecl mod) (iInsts ifaces) (pi_insts iface) `thenRn` \ new_insts -> foldlRn (loadInstDecl mod) (iInsts ifaces) (pi_insts iface) `thenRn` \ new_insts ->
foldlRn (loadRule mod) (iRules ifaces) (pi_rules iface) `thenRn` \ new_rules -> (if (opt_IgnoreIfacePragmas)
then returnRn emptyBag
else foldlRn (loadRule mod) (iRules ifaces) (pi_rules iface)) `thenRn` \ new_rules ->
foldlRn (loadFixDecl mod_name) (iFixes ifaces) rd_decls `thenRn` \ new_fixities -> foldlRn (loadFixDecl mod_name) (iFixes ifaces) rd_decls `thenRn` \ new_fixities ->
mapRn (loadExport this_mod_nm) (pi_exports iface) `thenRn` \ avails_s -> mapRn (loadExport this_mod_nm) (pi_exports iface) `thenRn` \ avails_s ->
let let
...@@ -421,7 +423,7 @@ checkEntityUsage mod decls ((occ_name,old_vers) : rest) ...@@ -421,7 +423,7 @@ checkEntityUsage mod decls ((occ_name,old_vers) : rest)
case lookupNameEnv decls name of case lookupNameEnv decls name of
Nothing -> -- We used it before, but it ain't there now Nothing -> -- We used it before, but it ain't there now
putDocRn (sep [ptext SLIT("No longer exported:"), ppr name]) traceRn (sep [ptext SLIT("No longer exported:"), ppr name])
`thenRn_` returnRn False `thenRn_` returnRn False
Just (new_vers,_,_,_) -- It's there, but is it up to date? Just (new_vers,_,_,_) -- It's there, but is it up to date?
...@@ -431,7 +433,7 @@ checkEntityUsage mod decls ((occ_name,old_vers) : rest) ...@@ -431,7 +433,7 @@ checkEntityUsage mod decls ((occ_name,old_vers) : rest)
| otherwise | otherwise
-- Out of date, so bale out -- Out of date, so bale out
-> putDocRn (sep [ptext SLIT("Out of date:"), ppr name]) `thenRn_` -> traceRn (sep [ptext SLIT("Out of date:"), ppr name]) `thenRn_`
returnRn False returnRn False
\end{code} \end{code}
...@@ -577,7 +579,9 @@ ppr_brief_inst_decl (mod, InstD (InstDecl inst_ty _ _ _ _)) ...@@ -577,7 +579,9 @@ ppr_brief_inst_decl (mod, InstD (InstDecl inst_ty _ _ _ _))
other -> ppr inst_ty other -> ppr inst_ty
getImportedRules :: RnMG [(Module,RdrNameHsDecl)] getImportedRules :: RnMG [(Module,RdrNameHsDecl)]
getImportedRules getImportedRules
| opt_IgnoreIfacePragmas = returnRn []
| otherwise
= getIfacesRn `thenRn` \ ifaces -> = getIfacesRn `thenRn` \ ifaces ->
let let
gates = iSlurp ifaces -- Anything at all that's been slurped gates = iSlurp ifaces -- Anything at all that's been slurped
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment